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

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

adminPage :: Server Response
adminPage =
    do homeURL <- showURL $ W_Board (BoardName $ Text.pack "codez") Nothing
       (ok . toResponse) =<< (unXMLGenT $ appTemplate "Super Secret Lair" () $
                                     <div>
                                      <p>You are now an almighty admin</p>
                                      <p>Continue your adventure <a href=homeURL>here</a></p>
                                     </div>)