{-# 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!"