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)