{-# LANGUAGE OverloadedStrings #-}

import Settlr.Storage
import Network.CGI (runCGI, handleErrors, CGIResult, CGI, outputFPS)
import Text.Blaze.Html5 (Html, (!))
import qualified Text.Blaze.Html5 as H
import qualified Text.Blaze.Html5.Attributes as A
import Text.Blaze.Html.Renderer.Utf8 (renderHtml)

page :: Html
page = H.docTypeHtml $ do
         H.head $ do
           H.title "Test"
           H.meta ! A.charset "utf-8"
         H.body $ do
           H.p "Hello, world!"

cgiMain :: CGI CGIResult
cgiMain = outputFPS $ renderHtml page

main :: IO ()
main = runCGI (handleErrors cgiMain)