make user page of logged in user easily accessible

This commit is contained in:
nek0 2019-12-14 08:34:30 +01:00
parent 12ce0e41e5
commit 2708f14ce4

View file

@ -30,9 +30,17 @@ scaffold
-> H.Html -> H.Html
-> H.Html -> H.Html
scaffold l10n locale mcookie page content = template page $ do scaffold l10n locale mcookie page content = template page $ do
H.header $ H.nav $ H.ul $ H.header $ H.nav $ H.ul $ do
H.li $ H.a H.! HA.href ("/" <> fromString (show $ linkURI userSelectLink)) $ H.li $ H.a H.! HA.href ("/" <> fromString (show $ linkURI userSelectLink)) $
H.toHtml $ localize l10n locale $ gettext "Home" H.toHtml $ translate "Home"
maybe
(return ())
(\uid ->
H.li $ H.a H.! HA.href ("/" <>
(fromString $ show $ linkURI $ userOverviewLink (read uid) Nothing)) $
H.toHtml $ translate "User Page"
)
(getLogin mcookie)
H.hr H.hr
when (isJust message) when (isJust message)
(H.div H.! HA.id "message" H.! HA.class_ "message" $ (H.div H.! HA.id "message" H.! HA.class_ "message" $