server/src/Design/Tooltip.hs


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

{-# LANGUAGE OverloadedStrings #-}

module Design.Tooltip
  ( design
  ) where

import           Clay

import           Design.Color as Color

design :: Css
design = do
  backgroundColor Color.mossGreen
  borderRadius (px 5) (px 5) (px 5) (px 5)
  padding (px 5) (px 5) (px 5) (px 5)
  color Color.white