src/server/Design/LoggedIn/Home/Search.hs


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

{-# LANGUAGE OverloadedStrings #-}

module Design.LoggedIn.Home.Search
  ( design
  ) where

import Clay

import Design.Color as Color
import Design.Constants
import Design.Helper

design :: Css
design = do
  expandBlock Color.gothic Color.white (px inputHeight)
  ".label" ? marginRight (px 10)