{-# OPTIONS_GHC -fglasgow-exts -F -pgmFtrhsx #-}
module Index where
import HSP
import HAppS.Template.HSP(Web, localRead)
import Logon.Interface(SessionData(active, name, greeting))
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