{-# LANGUAGE OverloadedStrings #-}

module Settlr.Views.ErrorNotFound
  ( viewErrorNotFound
  ) where

import Settlr.Config (ScriptM)
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
                       pure $ H.docTypeHtml $ do
                                H.head $ do
                                  H.title "Not Found"
                                  H.meta ! A.charset "utf-8"
                                H.body $ do
                                  H.h1 "Page Not Found"
                                  H.p "The requested page could not be found"
                                  H.a "Go back home" ! A.href (textValue homePath)