blob: 2350c5477fed83b85d36bf10a35022d9a681949b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
{-# LANGUAGE OverloadedStrings #-}
module Design.SignIn
( signInDesign
) where
import Clay
import Design.Color as C
import Design.Helper
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
defaultButton C.red C.white (px inputHeight)
display block
width (pct 100)
".result" ? do
marginTop (px 40)
textAlign (alignSide sideCenter)
".success" ? color C.greenSuccess
".error" ? color C.redError
|
