diff --git a/Web/FrontController.hs b/Web/FrontController.hs
index 0951be5..06fe40f 100644
--- a/Web/FrontController.hs
+++ b/Web/FrontController.hs
@@ -147,7 +147,19 @@ instance InitControllerContext WebApplication where
initAuthentication @User
defaultLayout :: (?context :: ControllerContext, ?request :: Request) => Layout
-defaultLayout inner = [hsx|
+defaultLayout inner =
+ let authWidget :: Html
+ authWidget = case currentUserOrNothing @User of
+ Just _ -> [hsx|
+
+ |]
+ Nothing -> [hsx|
+ Sign in
+ |]
+ in [hsx|
@@ -163,15 +175,14 @@ defaultLayout inner = [hsx|