Showing either the payment table or a forbidden message in the UI

1 files changed, 6 insertions, 7 deletions

diff --git a/src/server/Application.hs b/src/server/Application.hs
index b83273f..e480533 100644
--- a/src/server/Application.hs
+++ b/src/server/Application.hs
@@ -37,10 +37,7 @@ import Model.Payment
 import View.Page (page)
 
 getIndexAction :: ActionM ()
-getIndexAction =
-  Secure.loggedAction (\_ ->
-    html $ page
-  )
+getIndexAction = html page
 
 getUsersAction :: ActionM ()
 getUsersAction = do
@@ -48,9 +45,11 @@ getUsersAction = do
   html . fromString . show $ users
 
 getPaymentsAction :: ActionM ()
-getPaymentsAction = do
-  payments <- liftIO $ runDb getPayments
-  json payments
+getPaymentsAction =
+  Secure.loggedAction (\_ -> do
+    payments <- liftIO $ runDb getPayments
+    json payments
+  )
 
 addUserAction :: Text -> Text -> ActionM ()
 addUserAction email name = do