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/Init.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/Init.hs')
| -rw-r--r-- | src/server/Model/Init.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/Model/Init.hs b/src/server/Model/Init.hs index 167eead..09ac627 100644 --- a/src/server/Model/Init.hs +++ b/src/server/Model/Init.hs @@ -11,7 +11,7 @@ import Database.Persist import Model.Database import Model.Json.Init (Init, Init(Init)) -import Model.Payment (getPayments) +import qualified Model.Payment as Payment import Model.User (getUsers, getJsonUser) import Model.Income (getIncomes, getJsonIncome) @@ -21,7 +21,7 @@ getInit :: Entity User -> Persist Init getInit user = liftIO . runDb $ do users <- getUsers - payments <- getPayments + payments <- Payment.list incomes <- getIncomes return $ Init { Init.users = map getJsonUser users |