Pretty up the login page to match everywhere else

2017-10-09 20:30:50 +11:00 · 2017-10-09 20:30:50 +11:00 · 3b58b57cc5
commit 3b58b57cc5
parent 400c9ca8b4
3 changed files with 19 additions and 7 deletions
--- a/src/Foundation.hs
+++ b/src/Foundation.hs
@ -215,6 +215,7 @@ instance YesodAuth App where
      where loginForm :: Route App -> Widget
            loginForm action = do
              mtok <- reqToken <$> getRequest
+              setTitle "log in"
              $(widgetFile "auth/login")
    authHttpManager = getHttpManager