Skip to content
Permalink
Browse files

emptyLayout: show logged in user

  • Loading branch information...
3v0k4 committed Jul 21, 2019
1 parent 76c4347 commit aab5274c2ecb823b8c4d1c4eecfa37bf0e41c51f
Showing with 6 additions and 0 deletions.
  1. +1 −0 src/Foundation.hs
  2. +5 −0 templates/empty-layout.hamlet
@@ -304,6 +304,7 @@ unsafeHandler = Unsafe.fakeHandlerGetLogger appLogger
emptyLayout :: Widget -> Handler Html
emptyLayout widget = do
pc <- widgetToPageContent $ do
maybeUser <- maybeAuthPair
$(widgetFile "empty-layout")
withUrlRenderer $(hamletFile "templates/empty-layout-wrapper.hamlet")

@@ -1,2 +1,7 @@
<div>
$maybe (_key, user) <- maybeUser
<p>Logged in as: #{userIdent user}
$nothing
<p>
<div .container>
^{widget}

0 comments on commit aab5274

Please sign in to comment.
You can’t perform that action at this time.