{-# LANGUAGE FlexibleContexts, TypeFamilies #-}
{-# OPTIONS_GHC -F -pgmFtrhsx #-}
module Pages.Moderator where

import qualified Data.Text as Text
import Happstack.Server
import Happstack.Server.HSP.HTML
import HSP
import Pages.AppTemplate
import Server
import Types
import URL
import Web.Routes

moderatorPage :: Server Response
moderatorPage =
    do homeURL <- showURL $ W_Board (BoardName $ Text.pack "codez") Nothing
       (ok . toResponse) =<< (unXMLGenT $ appTemplate "Super Secret Lair" () $
                                     <div>
                                     <p>You are in the moderator's lair.</p>
                                      <p>Continue your adventure <a href=homeURL>here</a></p>
                                     </div>)