diff options
| author | Joris | 2015-08-29 13:30:09 +0200 |
|---|---|---|
| committer | Joris | 2015-08-29 13:30:09 +0200 |
| commit | 6b466f616035c2fc03359d182c074f096d6b7f17 (patch) | |
| tree | 47708f2e96614d71059f98c757d6a3fe88c8b923 /src/server/Main.hs | |
| parent | aa7f70d172be9ef322f9a0d19d1d9d9489f9fa75 (diff) | |
Showing exceeding payers
Diffstat (limited to 'src/server/Main.hs')
| -rw-r--r-- | src/server/Main.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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 |