diff --git a/src/View/Scaffold.hs b/src/View/Scaffold.hs index e79c9de..1ff73c4 100644 --- a/src/View/Scaffold.hs +++ b/src/View/Scaffold.hs @@ -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" $