From 6b466f616035c2fc03359d182c074f096d6b7f17 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 29 Aug 2015 13:30:09 +0200
Subject: Showing exceeding payers

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

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 1363f33..61613e6 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -37,7 +37,7 @@ main = do
 
         get "/validateSignIn" $ do
           token <- param "token" :: ActionM Text
-          validateSignInAction token
+          validateSignInAction config token
 
         get "/userName" $
           getUserName
@@ -54,6 +54,9 @@ main = do
           paymentId <- param "id" :: ActionM Text
           deletePaymentAction paymentId
 
+        get "/payments/total" $ do
+          getTotalPaymentsAction
+
         post "/signOut" $
           signOutAction
 
-- 
cgit v1.2.3