From 33b85b7f12798f5762d940ed5c30f775cdd7b751 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 28 Jan 2018 12:13:09 +0100
Subject: WIP

---
 server/src/Persistence/Init.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 server/src/Persistence/Init.hs

(limited to 'server/src/Persistence/Init.hs')

diff --git a/server/src/Persistence/Init.hs b/server/src/Persistence/Init.hs
new file mode 100644
index 0000000..74d9172
--- /dev/null
+++ b/server/src/Persistence/Init.hs
@@ -0,0 +1,25 @@
+module Persistence.Init
+  ( getInit
+  ) where
+
+import           Common.Model                (Init (Init), User (..))
+
+import           Conf                        (Conf)
+import qualified Conf
+import           Model.Query                 (Query)
+import qualified Persistence.Category        as CategoryPersistence
+import qualified Persistence.Income          as IncomePersistence
+import qualified Persistence.Payment         as PaymentPersistence
+import qualified Persistence.PaymentCategory as PaymentCategoryPersistence
+import qualified Persistence.User            as UserPersistence
+
+getInit :: User -> Conf -> Query Init
+getInit user conf =
+  Init <$>
+    UserPersistence.list <*>
+    (return . _user_id $ user) <*>
+    PaymentPersistence.listActive <*>
+    IncomePersistence.list <*>
+    CategoryPersistence.list <*>
+    PaymentCategoryPersistence.list <*>
+    (return . Conf.currency $ conf)
-- 
cgit v1.2.3