{-# OPTIONS_GHC -F -pgmFtrhsx #-} module Pages.Home where import Happstack.Server import HSP import Pages.AppTemplate import SiteURL import Happstack.Auth.Core.AuthURL import Happstack.Auth.Core.Profile import Web.Routes import Types homePage :: RouteT SiteURL (ServerPartT IO) Response homePage = do mUserId <- getUserId case mUserId of Nothing -> appTemplate "not logged in." ()
You can login here.