From 75804df1cb231033f94183e41cdf79d36d8f6710 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 21 Aug 2016 14:30:40 +0200
Subject: Show a message if there is an error during a server request

---
 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 96ac469..9155a78 100644
--- a/src/server/Controller/Payment.hs
+++ b/src/server/Controller/Payment.hs
@@ -28,7 +28,7 @@ import qualified Model.Json.EditPayment as Json
 
 list :: ActionM ()
 list =
-  Secure.loggedAction (\_ -> do
+  Secure.loggedAction (\_ ->
     (liftIO $ runDb Payment.list) >>= json
   )
 
-- 
cgit v1.2.3