server/src/Design/View/Stat.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{-# LANGUAGE OverloadedStrings #-}

module Design.View.Stat
  ( design
  ) where

import           Clay

design :: Css
design = do
  h1 ? paddingBottom (px 0)

  ".exceedingPayers" ? ".userName" ? marginRight (px 5)

  ".mean" ? marginBottom (em 1.5)