27 lines
824 B
Haskell
27 lines
824 B
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module SpaceTraders.Database.Systems
|
|
( addSystems
|
|
, getSystems
|
|
) where
|
|
|
|
import Control.Monad.Reader
|
|
import Data.Aeson
|
|
import Data.Maybe
|
|
import qualified Database.SQLite.Simple as S
|
|
|
|
import SpaceTraders
|
|
import SpaceTraders.Database.Utils
|
|
import SpaceTraders.Model.System
|
|
|
|
addSystems :: (HasDatabaseConn env, MonadIO m, MonadReader env m) => [System] -> m ()
|
|
addSystems systems = do
|
|
env <- ask
|
|
let conn = getConn env
|
|
liftIO $ S.withTransaction conn $ S.executeMany conn "INSERT INTO systems(data) VALUES (json(?));" $ S.Only <$> map encode systems
|
|
|
|
getSystems :: (HasDatabaseConn env, MonadIO m, MonadReader env m) => m [System]
|
|
getSystems = do
|
|
env <- ask
|
|
ret <- liftIO $ S.query_ (getConn env) "SELECT data from systems;"
|
|
return . catMaybes $ map (decodeText . head) ret
|