diff options
author | Joris | 2015-10-04 20:48:32 +0200 |
---|---|---|
committer | Joris | 2015-10-04 20:48:32 +0200 |
commit | 8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a (patch) | |
tree | cdd1bb79846b3d8865d833a122152528b03a4746 /src/server/Model/Income.hs | |
parent | 303dfd66c6434e19ba226a133a35a74a557b3e93 (diff) | |
download | budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.tar.gz budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.tar.bz2 budget-8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a.zip |
Using incomes to compute a fair computation to designate the payer
Diffstat (limited to 'src/server/Model/Income.hs')
-rw-r--r-- | src/server/Model/Income.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/server/Model/Income.hs b/src/server/Model/Income.hs index edf1c92..70b9149 100644 --- a/src/server/Model/Income.hs +++ b/src/server/Model/Income.hs @@ -1,5 +1,7 @@ module Model.Income ( getIncome + , getFirstIncome + , getIncomes , setIncome ) where @@ -15,6 +17,13 @@ getIncome :: UserId -> Persist (Maybe Income) getIncome userId = fmap entityVal <$> selectFirst [IncomeUserId ==. userId] [Desc IncomeCreation] +getIncomes :: Persist [Income] +getIncomes = map entityVal <$> selectList [] [] + +getFirstIncome :: UserId -> Persist (Maybe Income) +getFirstIncome userId = + fmap entityVal <$> selectFirst [IncomeUserId ==. userId] [Asc IncomeCreation] + setIncome :: UserId -> Int -> Persist IncomeId setIncome userId amount = do now <- liftIO getCurrentTime |