{-# OPTIONS_GHC -fglasgow-exts -F -pgmFtrhsx #-}
module Index where
import Control.Monad.Trans
import HSP
import HAppS.Template.HSP
import Logon.Interface
page :: Web XML
page = withMetaData html4Strict $
Logon
<% logon %>
logon :: Web XML
logon =
do sd <- localRead "session"
if active sd
then
<% (greeting sd) ++", "++(name sd) %>
logoff
else
Logon
Create Account