blob: 14fedfdc5c5c9434f6714c9b71db1e27754ef2a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
{-# LANGUAGE OverloadedStrings #-}
module Settlr.Views.Home
( viewHome
) where
import Settlr.Config (ScriptM)
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!"
|
