Showing exceeding payers

2 files changed, 12 insertions, 4 deletions

diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
index f4223a2..f5bd59d 100644
--- a/src/server/Design/Color.hs
+++ b/src/server/Design/Color.hs
@@ -15,7 +15,7 @@ orange :: C.Color
 orange = C.orange
 
 green :: C.Color
-green = C.green
+green = C.rgb 165 213 42
 
 darkgrey :: C.Color
 darkgrey = C.rgb 150 150 150
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)