From a26b34e52edca1c783d929f25157fd4a04432344 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 5 Sep 2015 09:28:21 +0200
Subject: Centering pages

---
 src/server/Controller/Payment.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/server/Controller')

diff --git a/src/server/Controller/Payment.hs b/src/server/Controller/Payment.hs
index b3fe07a..0a40771 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -36,7 +36,7 @@ createPaymentAction :: Text -> Int -> ActionM ()
 createPaymentAction name cost =
   Secure.loggedAction (\user -> do
     _ <- liftIO . runDb $ createPayment (entityKey user) name cost
-    ok200
+    status ok200
   )
 
 deletePaymentAction :: Text -> ActionM ()
-- 
cgit v1.2.3