aboutsummaryrefslogtreecommitdiff
path: root/server/src/Persistence
diff options
context:
space:
mode:
Diffstat (limited to 'server/src/Persistence')
-rw-r--r--server/src/Persistence/Init.hs25
1 files changed, 0 insertions, 25 deletions
diff --git a/server/src/Persistence/Init.hs b/server/src/Persistence/Init.hs
deleted file mode 100644
index 74d9172..0000000
--- a/server/src/Persistence/Init.hs
+++ /dev/null
@@ -1,25 +0,0 @@
-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)