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/Main.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/Main.hs')
-rw-r--r-- | src/server/Main.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/server/Main.hs b/src/server/Main.hs index 71c4674..6a120d6 100644 --- a/src/server/Main.hs +++ b/src/server/Main.hs @@ -14,6 +14,7 @@ import Controller.Index import Controller.SignIn import Controller.Payment import Controller.User +import Controller.Payer import Model.Database (runMigrations) import Model.Frequency @@ -74,5 +75,8 @@ main = do paymentId <- param "id" :: ActionM Text deletePayment paymentId - get "/payments/total" getTotalPayments get "/payments/count" getPaymentsCount + + -- Payers + + get "/payers" getPayers |