diff options
| author | Joris | 2019-10-20 21:31:57 +0200 |
|---|---|---|
| committer | Joris | 2019-10-20 21:31:57 +0200 |
| commit | 602c52acfcfa494b07fec05c20b317b60ea8a6f3 (patch) | |
| tree | 34fd9c44f82a83569822bc36eb2e0b04518e59f2 /server/src/Persistence/Init.hs | |
| parent | 7aadcc97f9df0e2daccbe8a8726d8bc6c63d67f4 (diff) | |
| download | budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.tar.gz budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.tar.bz2 budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.zip | |
Load init data per page with AJAX
Diffstat (limited to 'server/src/Persistence/Init.hs')
| -rw-r--r-- | server/src/Persistence/Init.hs | 25 |
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) |