blob: 630a8a4754fa94cc4a76a70f1db242322a30a97e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE OverloadedStrings #-}
module Settlr.Views.ErrorNotFound
( viewErrorNotFound
) where
import Settlr.Scripts (ScriptM)
import Settlr.UI.Page (page)
import Text.Blaze.Html5 (Html, (!), textValue)
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A
import Settlr.Routes (Route(..), formatRoute)
import Network.CGI (setStatus)
viewErrorNotFound :: ScriptM Html
viewErrorNotFound = do setStatus 404 "Not Found"
homePath <- formatRoute RouteHome
page "Not Found" $ do
H.h1 "Page Not Found"
H.p "The requested page could not be found"
H.a "Go back home" ! A.href (textValue homePath)
|
