aboutsummaryrefslogtreecommitdiff
path: root/src/server/View
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/View')
-rw-r--r--src/server/View/Page.hs30
1 files changed, 30 insertions, 0 deletions
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" $ ""