diff options
| author | Joris | 2016-06-26 12:31:24 +0200 |
|---|---|---|
| committer | Joris | 2016-06-26 12:31:24 +0200 |
| commit | 9ec84e3a20c767f6525639f58cd22715e302b88d (patch) | |
| tree | a080552859180707472c1a289080857c0a54fc06 /src/server/Model/Income.hs | |
| parent | 5cb36652ccf07c9e0995ebc421a837ad7d258469 (diff) | |
| download | budget-9ec84e3a20c767f6525639f58cd22715e302b88d.tar.gz budget-9ec84e3a20c767f6525639f58cd22715e302b88d.tar.bz2 budget-9ec84e3a20c767f6525639f58cd22715e302b88d.zip | |
Add an editable date field for punctual payment creation
Diffstat (limited to 'src/server/Model/Income.hs')
| -rw-r--r-- | src/server/Model/Income.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/server/Model/Income.hs b/src/server/Model/Income.hs index 119a44f..62ab0ed 100644 --- a/src/server/Model/Income.hs +++ b/src/server/Model/Income.hs @@ -1,7 +1,7 @@ module Model.Income ( getJsonIncome , getIncomes - , addIncome + , createIncome , deleteOwnIncome ) where @@ -23,10 +23,10 @@ getJsonIncome incomeEntity = getIncomes :: Persist [Entity Income] getIncomes = selectList [IncomeDeletedAt ==. Nothing] [] -addIncome :: UserId -> Day -> Int -> Persist IncomeId -addIncome userId day amount = do +createIncome :: UserId -> Day -> Int -> Persist IncomeId +createIncome userId date amount = do now <- liftIO getCurrentTime - insert (Income userId day amount now Nothing) + insert (Income userId date amount now Nothing) deleteOwnIncome :: Entity User -> IncomeId -> Persist Bool deleteOwnIncome user incomeId = do |