diff options
| author | Joris Guyonvarch | 2015-07-18 18:29:46 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-07-18 18:29:46 +0200 |
| commit | 3486644b442a0800f645ec9ae7f3ce8fe2b3c9cd (patch) | |
| tree | 07cf31c37b09a2cb8bcb04380b91a640727888df /src/server | |
| parent | b27a7914993f5a5a87160dc33431a6fa1f4ad323 (diff) | |
Showing either the payment table or a forbidden message in the UI
Diffstat (limited to 'src/server')
| -rw-r--r-- | src/server/Application.hs | 13 | ||||
| -rw-r--r-- | src/server/View/Page.hs | 1 |
2 files changed, 6 insertions, 8 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 diff --git a/src/server/View/Page.hs b/src/server/View/Page.hs index aa4df72..3f4dbf5 100644 --- a/src/server/View/Page.hs +++ b/src/server/View/Page.hs @@ -23,7 +23,6 @@ page = script ! src "/javascripts/client.js" $ "" link ! rel "stylesheet" ! type_ "text/css" ! href "/css/reset.css" link ! rel "stylesheet" ! href "/css/font-awesome/css/font-awesome.min.css" - link ! rel "stylesheet" ! type_ "text/css" ! href "/css/global.css" link ! rel "icon" ! type_ "image/png" ! href "/images/icon.png" H.style $ toHtml globalDesign body $ |