diff options
| author | Joris | 2015-08-27 20:36:18 +0200 |
|---|---|---|
| committer | Joris | 2015-08-27 20:36:18 +0200 |
| commit | fd86f021e88a00348ac0e03f03d81cb15bf3042b (patch) | |
| tree | baf7cbb5cc01fccebc235e0e400cad94eb90de6b /src/server/Main.hs | |
| parent | a2527c34e6b0e719a948cfd36bfee5ffad095a30 (diff) | |
| download | budget-fd86f021e88a00348ac0e03f03d81cb15bf3042b.tar.gz budget-fd86f021e88a00348ac0e03f03d81cb15bf3042b.tar.bz2 budget-fd86f021e88a00348ac0e03f03d81cb15bf3042b.zip | |
Server payament delete
Diffstat (limited to 'src/server/Main.hs')
| -rw-r--r-- | src/server/Main.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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 |