make user page of logged in user easily accessible

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" $