Typo and color fix on webpage
commit401d37ef92241e8de34ff6b56f9c8b3b79d06835
authoriko <ilyakooo0@gmail.com>
dateSat 11 May 2019, 23:34 (7 years ago)
parentf2346b8
denis/src/Server/Auth.hs+1−1
@@ -211,7 +211,7 @@ deactivateUser (Just uId) (Just dData') = catchErrorPage $ do
211211 Right dData -> do
212212 ua' <- runQerror $ deactivateToken uId dData
213213 case ua' of
214− Nothing -> return $ page "This activation link has been invalidated."
214+ Nothing -> return $ page "This deactivation link has been invalidated."
215215 Just ua -> return $ genActivationPage "out" ua
216216
217217catchErrorPage :: App Markup -> App Markup
denis/src/Server/Auth/HTML.hs+1−1
@@ -38,7 +38,7 @@ genPage :: Markup -> Markup
3838genPage pageContent = html $ do
3939 H.head $ do
4040 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
4242 H.div ! A.style "text-align: center; margin-top: 20vh; margin-left: 10%; margin-right: 10%" $ do
4343 H.div ! A.style "font-size: 40px; font-weight: bold;" $ pageContent
4444