diff options
| author | Joris | 2018-01-28 12:13:09 +0100 |
|---|---|---|
| committer | Joris | 2018-06-11 12:28:29 +0200 |
| commit | 33b85b7f12798f5762d940ed5c30f775cdd7b751 (patch) | |
| tree | daf8cfb7b0a16b2fce65848fc0ca2831f33a0701 /server/src/Model/Init.hs | |
| parent | ab17b6339d16970c3845ec4f153bfeed89eae728 (diff) | |
| download | budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.gz budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.tar.bz2 budget-33b85b7f12798f5762d940ed5c30f775cdd7b751.zip | |
WIP
Diffstat (limited to 'server/src/Model/Init.hs')
| -rw-r--r-- | server/src/Model/Init.hs | 25 |
1 files changed, 0 insertions, 25 deletions
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) |