From 898e7ed11ab0958fcdaf65b99b33f7b04787630a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Sep 2017 22:14:48 +0200
Subject: Bootstrap with GHCJS and reflex:

- setup login and logout,
- first draft of payment view.
---
 src/server/View/Page.hs | 23 +++++++++--------------
 1 file changed, 9 insertions(+), 14 deletions(-)

(limited to 'src/server/View/Page.hs')

diff --git a/src/server/View/Page.hs b/src/server/View/Page.hs
index 5a2e4f8..1c072a4 100644
--- a/src/server/View/Page.hs
+++ b/src/server/View/Page.hs
@@ -16,29 +16,24 @@ import Text.Blaze.Html5.Attributes
 import qualified Text.Blaze.Html5.Attributes as A
 import Text.Blaze.Html.Renderer.Text (renderHtml)
 
-import Design.Global (globalDesign)
+import qualified Common.Message as Message
+import Common.Model.InitResult (InitResult)
+import qualified Common.Message.Key as Key
 
-import Model.Message
-import Model.Json.Conf
-import Model.Json.Init (InitResult)
-import Model.Message.Key (Key(SharedCost))
+import Design.Global (globalDesign)
 
-page :: Conf -> InitResult -> Text
-page conf initResult =
+page :: InitResult -> Text
+page initResult =
   renderHtml . docTypeHtml $ do
     H.head $ do
       meta ! charset "UTF-8"
       meta ! name "viewport" ! content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=0"
-      H.title (toHtml $ getMessage SharedCost)
-      script ! src "javascripts/client.js" $ ""
-      jsonScript "translations" getTranslations
-      jsonScript "conf" conf
-      jsonScript "result" initResult
+      H.title (toHtml $ Message.get Key.App_Title)
+      script ! src "javascript/main.js" $ ""
+      jsonScript "init" initResult
       link ! rel "stylesheet" ! type_ "text/css" ! href "css/reset.css"
       link ! rel "icon" ! type_ "image/png" ! href "images/icon.png"
       H.style $ toHtml globalDesign
-    body $ do
-      script ! src "javascripts/main.js" $ ""
 
 jsonScript :: Json.ToJSON a => Text -> a -> Html
 jsonScript scriptId json =
-- 
cgit v1.2.3