aboutsummaryrefslogtreecommitdiff
path: root/src/server/Controller
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Controller')
-rw-r--r--src/server/Controller/Payment.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index 271d970..b3fe07a 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -35,8 +35,8 @@ getPaymentsAction page perPage =
createPaymentAction :: Text -> Int -> ActionM ()
createPaymentAction name cost =
Secure.loggedAction (\user -> do
- paymentKey <- liftIO . runDb $ createPayment (entityKey user) name cost
- json . Message . paymentKeyToText $ paymentKey
+ _ <- liftIO . runDb $ createPayment (entityKey user) name cost
+ ok200
)
deletePaymentAction :: Text -> ActionM ()