From e46ba39998df08d717c005ed112d20575ca54034 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 21 Jul 2019 16:39:41 +0200 Subject: [PATCH] integrate into startup --- src/Main.hs | 1 + src/Model.hs | 1 + 2 files changed, 2 insertions(+) diff --git a/src/Main.hs b/src/Main.hs index d83edaf..5b82087 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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 diff --git a/src/Model.hs b/src/Model.hs index 2d34c39..76657b9 100644 --- a/src/Model.hs +++ b/src/Model.hs @@ -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