{-# OPTIONS_GHC -fglasgow-exts -F -pgmFtrhsx #-} module Index where import Control.Monad.Trans import HSP import HAppS.Template.HSP -- import HJScript -- import HJScript.DOM hiding (length) import 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