diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs index 11b2f03..9ac8fc1 100644 --- a/src/Vervis/Foundation.hs +++ b/src/Vervis/Foundation.hs @@ -148,7 +148,7 @@ instance Yesod App where defaultLayout widget = do master <- getYesod mmsg <- getMessage - mperson <- maybeAuth + mperson <- maybeAuthAllowUnverified (title, bcs) <- breadcrumbs -- We break up the default layout into two components: diff --git a/templates/default-layout.hamlet b/templates/default-layout.hamlet index b7515e7..b996966 100644 --- a/templates/default-layout.hamlet +++ b/templates/default-layout.hamlet @@ -12,10 +12,16 @@ $# You should have received a copy of the CC0 Public Domain Dedication along $# with this software. If not, see $# . -$maybe Entity _pid person <- mperson +$maybe (Entity _pid person, verified) <- mperson
- You are logged in as #{personLogin person}. - Log out. + $if verified + You are logged in as #{personLogin person}. + Log out. + $else + You are logged in as #{personLogin person} (unverified). If you haven't + received a verification link by email, you can ask to + resend + it. Or Log out. $nothing
You are not logged in.