diff options
Diffstat (limited to 'src/server/Design/SignIn.hs')
-rw-r--r-- | src/server/Design/SignIn.hs | 60 |
1 files changed, 29 insertions, 31 deletions
diff --git a/src/server/Design/SignIn.hs b/src/server/Design/SignIn.hs index 814cca3..c319d1e 100644 --- a/src/server/Design/SignIn.hs +++ b/src/server/Design/SignIn.hs @@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} module Design.SignIn - ( signInDesign + ( design ) where import Clay @@ -10,33 +10,31 @@ import Design.Color as C import Design.Helper import Design.Constants (focusLighten) -signInDesign :: Css -signInDesign = - - ".signIn" ? do - - form ? do - let inputHeight = 50 - width (px 500) - marginTop (px 100) - marginLeft auto - marginRight auto - - input ? do - defaultInput inputHeight - display block - width (pct 100) - marginBottom (px 10) - - button ? do - iconButton C.blue C.white (px inputHeight) focusLighten - display block - width (pct 100) - fontSize (em 1.2) - ".waitingServer" & ("cursor" -: "not-allowed") - - ".result" ? do - marginTop (px 40) - textAlign (alignSide sideCenter) - ".success" ? color C.green - ".error" ? color C.redError +design :: Css +design = do + + form ? do + let inputHeight = 50 + width (px 500) + marginTop (px 100) + marginLeft auto + marginRight auto + + input ? do + defaultInput inputHeight + display block + width (pct 100) + marginBottom (px 10) + + button ? do + iconButton C.blue C.white (px inputHeight) focusLighten + display block + width (pct 100) + fontSize (em 1.2) + ".waitingServer" & ("cursor" -: "not-allowed") + + ".result" ? do + marginTop (px 40) + textAlign (alignSide sideCenter) + ".success" ? color C.green + ".error" ? color C.redError |