restructure common page layout

1 files changed, 4 insertions, 8 deletions

diff --git a/src/Settlr/Views/Home.hs b/src/Settlr/Views/Home.hs
index 14fedfd..eb4aea5 100644
--- a/src/Settlr/Views/Home.hs
+++ b/src/Settlr/Views/Home.hs
@@ -5,14 +5,10 @@ module Settlr.Views.Home
   ) where
 
 import Settlr.Config (ScriptM)
-import Text.Blaze.Html5 (Html, (!))
+import Settlr.UI.Page (page)
+import Text.Blaze.Html5 (Html)
 import qualified Text.Blaze.Html5 as H
-import qualified Text.Blaze.Html5.Attributes as A
 
 viewHome :: ScriptM Html
-viewHome = pure $ H.docTypeHtml $ do
-                    H.head $ do
-                      H.title "Test"
-                      H.meta ! A.charset "utf-8"
-                    H.body $ do
-                      H.p "Hello, world!"
+viewHome = page "Home" $ do
+             H.p "Hello, world!"