From fd86f021e88a00348ac0e03f03d81cb15bf3042b Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 27 Aug 2015 20:36:18 +0200
Subject: Server payament delete

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

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

diff --git a/src/server/Main.hs b/src/server/Main.hs
index 0828e0d..1363f33 100644
--- a/src/server/Main.hs
+++ b/src/server/Main.hs
@@ -50,6 +50,10 @@ main = do
           cost <- param "cost" :: ActionM Int
           createPaymentAction name cost
 
+        post "/payment/delete" $ do
+          paymentId <- param "id" :: ActionM Text
+          deletePaymentAction paymentId
+
         post "/signOut" $
           signOutAction
 
-- 
cgit v1.2.3