From 41dc555f3a4d53a8773a03ac24bed9aea8143bfa Mon Sep 17 00:00:00 2001 From: Hannes Schulze Date: Sat, 3 Oct 2026 23:23:51 +0200 Subject: restructure common page layout --- src/Settlr/Views/Home.hs | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) (limited to 'src/Settlr/Views/Home.hs') 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!" -- cgit v1.3.1