diff --git a/src/Foundation.hs b/src/Foundation.hs index 30d2afe..57f0883 100644 --- 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 diff --git a/templates/auth/login.cassius b/templates/auth/login.cassius index 48db2c1..e36a45c 100644 --- a/templates/auth/login.cassius +++ b/templates/auth/login.cassius @@ -1,3 +1,14 @@ body > main display: flex align-items: center + justify-content: center + .form-control + background-color: #1d1f21 + color: #c9cacc + &:focus + background-color: #404449 + color: #c9cacc + .input-group-addon + background-color: #000 + color: #fff + width: 2.4rem diff --git a/templates/auth/login.hamlet b/templates/auth/login.hamlet index 05813b0..7a3c6a0 100644 --- a/templates/auth/login.hamlet +++ b/templates/auth/login.hamlet @@ -5,20 +5,20 @@
-