clckwrks-0.28.0.1: Clckwrks/Admin/Console.hs

{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -F -pgmFhsx2hs #-}
module Clckwrks.Admin.Console where

import Clckwrks                (AdminURL(..), Clck, Response)
import Clckwrks.Admin.Template (template)
import Data.Text.Lazy          (Text)
import HSP.XMLGenerator
import HSP.XML

consolePage :: Clck AdminURL Response
consolePage =
    do template "Administration" () $
         <div>
          <p>Enter a world of excitement.</p>
         </div>