blob: 63ff4135e5d14e1674b55cbfa01b79fd80be081b (
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 HomeDesign
import qualified Design.LoggedIn.Income as IncomeDesign
import qualified Design.LoggedIn.Stat as StatDesign
design :: Css
design = do
".home" ? HomeDesign.design
".income" ? IncomeDesign.design
".stat" ? StatDesign.design
(".income" <> ".stat") ? do
"margin" -: "0 2vw"
|
