From 8c24464a4bd0a486cd0ddf846d3b5a323a7aaa9a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 4 Oct 2015 20:48:32 +0200
Subject: Using incomes to compute a fair computation to designate the payer

---
 src/server/Main.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/server/Main.hs')

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
-- 
cgit v1.2.3