integrate into startup

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

View file

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

View file

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