blob: 5a3297ac083b81f8328275a0e942a53bbbd0a53e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{-# LANGUAGE OverloadedStrings #-}
module Design.LoggedIn
( design
) where
import Data.Monoid ((<>))
import Clay
import qualified Design.LoggedIn.Home as Home
import qualified Design.LoggedIn.Income as Income
import qualified Design.LoggedIn.Stat as Stat
design :: Css
design = do
".home" ? Home.design
".income" ? Income.design
".stat" ? Stat.design
(".income" <> ".stat") ? do
"margin" -: "0 2vw"
|
