Add an editable date field for punctual payment creation

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