diff options
| author | Joris | 2016-03-20 22:38:44 +0100 |
|---|---|---|
| committer | Joris | 2016-03-21 20:43:55 +0100 |
| commit | 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 (patch) | |
| tree | 4ff8aeb6aa0f159548f8f506374276c1a2c97f7d /src/server/View/Page.hs | |
| parent | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (diff) | |
| download | budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.gz budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.tar.bz2 budget-1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257.zip | |
use config-manager instead of ConfigFile
Diffstat (limited to 'src/server/View/Page.hs')
| -rw-r--r-- | src/server/View/Page.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/server/View/Page.hs b/src/server/View/Page.hs index e85ed33..4fc57f9 100644 --- a/src/server/View/Page.hs +++ b/src/server/View/Page.hs @@ -18,11 +18,11 @@ import Text.Blaze.Html.Renderer.Text (renderHtml) import Design.Global (globalDesign) import Model.Message -import Model.Json.Config +import Model.Json.Conf import Model.Message.Key (Key(SharedCost)) -page :: Config -> Text -page config = +page :: Conf -> Text +page conf = renderHtml . docTypeHtml $ do H.head $ do meta ! charset "UTF-8" @@ -31,7 +31,7 @@ page config = script ! src "https://login.persona.org/include.js" $ "" script ! src "javascripts/client.js" $ "" script ! A.id "messages" ! type_ "application/json" $ toHtml . decodeUtf8 . encode $ getTranslations - script ! A.id "config" ! type_ "application/json" $ toHtml . decodeUtf8 . encode $ config + script ! A.id "conf" ! type_ "application/json" $ toHtml . decodeUtf8 . encode $ conf link ! rel "stylesheet" ! type_ "text/css" ! href "css/reset.css" link ! rel "stylesheet" ! href "css/font-awesome-4.5.0/css/font-awesome.min.css" link ! rel "icon" ! type_ "image/png" ! href "images/icon.png" |