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
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.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
when (isJust message)
(H.div H.! HA.id "message" H.! HA.class_ "message" $