git.iko.soy/denis
on master help sign in
Typo and color fix on webpage
401d37eiko
denis/src/Server/Auth.hs+1−1
compare with master
unifiedsplit
@@ -211,7 +211,7 @@ deactivateUser (Just uId) (Just dData') = catchErrorPage $ do
211 Right dData -> do
211 Right dData -> do
212 ua' <- runQerror $ deactivateToken uId dData
212 ua' <- runQerror $ deactivateToken uId dData
213 case ua' of
213 case ua' of
214− Nothing -> return $ page "This activation link has been invalidated."
214+ Nothing -> return $ page "This deactivation link has been invalidated."
215 Just ua -> return $ genActivationPage "out" ua
215 Just ua -> return $ genActivationPage "out" ua
216
216
217catchErrorPage :: App Markup -> App Markup
217catchErrorPage :: App Markup -> App Markup
denis/src/Server/Auth/HTML.hs+1−1
@@ -38,7 +38,7 @@ genPage :: Markup -> Markup
38genPage pageContent = html $ do
38genPage pageContent = html $ do
39 H.head $ do
39 H.head $ do
40 meta ! name "viewport" ! content "width=device-width, initial-scale=1"
40 meta ! name "viewport" ! content "width=device-width, initial-scale=1"
41− body ! A.style "font-family: sans-serif; background-color: #eee" $ do
41+ body ! A.style "font-family: sans-serif; background-color: #e8e8e8" $ do
42 H.div ! A.style "text-align: center; margin-top: 20vh; margin-left: 10%; margin-right: 10%" $ do
42 H.div ! A.style "text-align: center; margin-top: 20vh; margin-left: 10%; margin-right: 10%" $ do
43 H.div ! A.style "font-size: 40px; font-weight: bold;" $ pageContent
43 H.div ! A.style "font-size: 40px; font-weight: bold;" $ pageContent
44
44