From 6b466f616035c2fc03359d182c074f096d6b7f17 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 29 Aug 2015 13:30:09 +0200 Subject: Showing exceeding payers --- src/server/Design/Global.hs | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) (limited to 'src/server/Design/Global.hs') diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs index f7dd28d..f61fa66 100644 --- a/src/server/Design/Global.hs +++ b/src/server/Design/Global.hs @@ -4,9 +4,6 @@ module Design.Global ( globalDesign ) where -import qualified Prelude -import Prelude - import Data.Monoid ((<>)) import Clay @@ -51,6 +48,17 @@ global = do hover & transform (scale 1.2 1.2) ".payments" ? do + + ".exceedingPayers" ? do + margin (px 0) (px 20) (px 45) (px 20) + padding (px 10) (px 10) (px 10) (px 10) + backgroundColor C.green + color C.white + fontWeight bold + borderRadius (px 5) (px 5) (px 5) (px 5) + + ".exceedingPayer" Clay.** ".userName" ? marginRight (px 10) + form # ".add" ? do let inputHeight = 40 width (pct 80) -- cgit v1.2.3