blob: c030c58284166f78b6a6c51f3a1d7ec5b5aa253b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
{-# LANGUAGE OverloadedStrings #-}
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.list <*>
Income.list <*>
Category.list <*>
PaymentCategory.list <*>
(return . Conf.currency $ conf)
|
