src/Settlr/Views/Home.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14

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