Show incomes in a table and update like payments are updated

1 files changed, 5 insertions, 3 deletions

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 19d78b3..4636674 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -15,7 +15,7 @@ import qualified Data.Text.IO as T
 import Controller.Index
 import Controller.SignIn
 import Controller.Payment as Payment
-import Controller.Income
+import Controller.Income as Income
 
 import Model.Database (runMigrations)
 
@@ -62,8 +62,10 @@ main = do
 
         -- Incomes
 
-        post "/income" $ jsonData >>= createIncome
+        post "/income" $ jsonData >>= Income.create
+
+        put "/income" $ jsonData >>= Income.editOwn
 
         delete "/income" $ do
           incomeId <- param "id" :: ActionM Text
-          deleteOwnIncome incomeId
+          Income.deleteOwn incomeId