blob: 150c6fc72aab2e6445f489cfa6dd046dccc06bd6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
module Design.View.NotFound
( design
) where
import Clay
import Prelude hiding (rem)
import qualified Design.Color as Color
design :: Css
design = do
marginLeft (rem 3)
".link" ? do
display block
marginTop (rem 1)
color Color.chestnutRose
textDecoration underline
hover &
color (Color.chestnutRose +. 15)
|
