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" $ ""