diff options
| author | Joris | 2015-08-29 13:30:09 +0200 |
|---|---|---|
| committer | Joris | 2015-08-29 13:30:09 +0200 |
| commit | 6b466f616035c2fc03359d182c074f096d6b7f17 (patch) | |
| tree | 47708f2e96614d71059f98c757d6a3fe88c8b923 /src/server/Design/Global.hs | |
| parent | aa7f70d172be9ef322f9a0d19d1d9d9489f9fa75 (diff) | |
| download | budget-6b466f616035c2fc03359d182c074f096d6b7f17.tar.gz budget-6b466f616035c2fc03359d182c074f096d6b7f17.tar.bz2 budget-6b466f616035c2fc03359d182c074f096d6b7f17.zip | |
Showing exceeding payers
Diffstat (limited to 'src/server/Design/Global.hs')
| -rw-r--r-- | src/server/Design/Global.hs | 14 |
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) |