{-# LANGUAGE OverloadedStrings #-}

module Settlr.Views.Home
  ( viewHome
  ) where

import Settlr.Scripts (ScriptM)
import Settlr.UI.Page (page)
import Text.Blaze.Html5 (Html)
import qualified Text.Blaze.Html5 as H

viewHome :: ScriptM Html
viewHome = page "Home" $ do
             H.p "Hello, world!"