Showing exceeding payers

1 files changed, 11 insertions, 3 deletions

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)