blob: 5be73892d5fb5b2745794157b6e82637392affc8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE QuasiQuotes #-}
module SpaceTraders.Database.Agents
( setAgent
) where
import Data.Aeson
import qualified Database.SQLite.Simple as S
import SpaceTraders.Model.Agent
setAgent :: S.Connection -> Agent -> IO ()
setAgent conn agent = S.execute conn "INSERT INTO agents(data) VALUES (json(?));" (S.Only (encode agent))
|
