diff options
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 $ |