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

integrate into startup

Browse source
This commit is contained in:
nek0 2019-07-21 16:39:41 +02:00
parent 9a74b75a50
commit e46ba39998
2 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Main.hs
View file

@ -48,6 +48,7 @@ main = do
execute_ conn initUser execute_ conn initUser
execute_ conn initProduct execute_ conn initProduct
execute_ conn initToken execute_ conn initToken
execute_ conn initAmount
withStdoutLogger $ \log -> do withStdoutLogger $ \log -> do
let settings = setPort 3000 $ setLogger log defaultSettings let settings = setPort 3000 $ setLogger log defaultSettings
initState = ReadState initState = ReadState

1
src/Model.hs
View file

@ -5,3 +5,4 @@ module Model
import Model.User as M import Model.User as M
import Model.Product as M import Model.Product as M
import Model.Auth as M import Model.Auth as M
import Model.Amount as M