nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

some clarification

Browse source
This commit is contained in:
nek0 2022-07-24 16:49:41 +02:00
parent 7516b7912f
commit 8cf5edb0bb
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Model/Settings.hs
View file

@ -19,6 +19,8 @@ import Opaleye as O
import Types import Types
import Classes import Classes
-- | This function does (as opposed to all other init functions) create just the table,
-- but also creates a first settings object with default values.
initSettings :: PGS.Query initSettings :: PGS.Query
initSettings = mconcat initSettings = mconcat
[ "CREATE TABLE IF NOT EXISTS \"settings\" (" [ "CREATE TABLE IF NOT EXISTS \"settings\" ("
@ -42,8 +44,8 @@ settingsTable = table "settings" (
) )
) )
getSettings :: PGS.Connection -> MateHandler Settings selectSettings :: PGS.Connection -> MateHandler Settings
getSettings conn = liftIO $ do selectSettings conn = liftIO $ do
head . map fromDatabase <$> runSelect conn head . map fromDatabase <$> runSelect conn
( proc () -> do ( proc () -> do
ret <- limit 1 $ selectTable settingsTable -< () ret <- limit 1 $ selectTable settingsTable -< ()