From 4ce9751c9e645916fdde71874c2cdadd252f32a0 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Mon, 6 Jul 2015 00:16:45 +0200
Subject: Setting up Scotty, Persistent, Clay, Blaze, Esqueleto, Elm

---
 src/server/View/Page.hs | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 src/server/View/Page.hs

(limited to 'src/server/View')

diff --git a/src/server/View/Page.hs b/src/server/View/Page.hs
new file mode 100644
index 0000000..aa4df72
--- /dev/null
+++ b/src/server/View/Page.hs
@@ -0,0 +1,30 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module View.Page
+  ( page
+  ) where
+
+import Data.Text.Internal.Lazy (Text)
+
+import Text.Blaze.Html
+import Text.Blaze.Html5
+import Text.Blaze.Html5.Attributes
+import qualified Text.Blaze.Html5 as H
+import Text.Blaze.Html.Renderer.Text (renderHtml)
+
+import Design.Global (globalDesign)
+
+page :: Text
+page =
+  renderHtml . docTypeHtml $ do
+    H.head $ do
+      meta ! charset "UTF-8"
+      H.title "Payments"
+      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 $
+      script ! src "/javascripts/elmLauncher.js" $ ""
-- 
cgit v1.2.3