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

---
 server/src/Model/Init.hs | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 server/src/Model/Init.hs

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

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