{-# LANGUAGE RecordWildCards #-} {-# OPTIONS_GHC -F -pgmFtrhsx #-} module Pages.Home where import Acid import Data.Acid import Data.Acid.Advanced import Data.Maybe import qualified Data.Text as Text import Happstack.Server import HSP import Pages.AppTemplate import SiteURL import Happstack.Auth.Core.Auth (AuthState) import Happstack.Auth.Core.AuthURL import Happstack.Auth.Core.Profile import ProfileData import Web.Routes homePage :: Acid -> RouteT SiteURL (ServerPartT IO) Response homePage Acid{..} = do mUserId <- getUserId acidAuth acidProfile case mUserId of Nothing -> appTemplate "not logged in." ()
You can login here.