Ameliore design in income page and stat page

1 files changed, 45 insertions, 47 deletions

diff --git a/src/server/Design/Header.hs b/src/server/Design/Header.hs
index e361cb1..d4546f8 100644
--- a/src/server/Design/Header.hs
+++ b/src/server/Design/Header.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module Design.Header
-  ( headerDesign
+  ( design
   ) where
 
 import Data.Monoid ((<>))
@@ -11,51 +11,49 @@ import Clay
 import Design.Color as C
 import Design.Constants
 
-headerDesign :: Css
-headerDesign =
-
-  header ? do
-    let headerHeight = px 80
-    let headerPadding = px 20
-    let darkenedRed = C.red +. 10
-    lineHeight headerHeight
-    height headerHeight
-    marginBottom blockMarginBottom
+design :: Css
+design = do
+  let headerHeight = px 80
+  let headerPadding = px 20
+  let darkenedRed = C.red +. 10
+  lineHeight headerHeight
+  height headerHeight
+  marginBottom blockMarginBottom
+  position relative
+  backgroundColor C.red
+  color C.white
+
+  ".item" ? do
+    float floatLeft
+    paddingLeft headerPadding
+    paddingRight headerPadding
+    hover & backgroundColor darkenedRed
+    focus & backgroundColor darkenedRed
     position relative
-    backgroundColor C.red
+    ".current" & after & do
+        display block
+        content (stringContent "")
+        height (px 5)
+        width (pct 100)
+        position absolute
+        bottom (px 0)
+        left (px 0)
+        backgroundColor C.white
+
+  ".title" ? do
+    height (pct 100)
+    fontSize (px 35)
+    textAlign (alignSide sideLeft)
+    paddingLeft headerPadding
+    paddingRight headerPadding
+
+  (".name" <> ".signOut") ? float floatRight
+
+  ".name" ? do
+    paddingLeft headerPadding
+    paddingRight headerPadding
+
+  ".signOut" ? do
+    height (pct 100)
+    fontSize iconFontSize
     color C.white
-
-    ".item" ? do
-      float floatLeft
-      paddingLeft headerPadding
-      paddingRight headerPadding
-      hover & backgroundColor darkenedRed
-      focus & backgroundColor darkenedRed
-      position relative
-      ".current" & after & do
-          display block
-          content (stringContent "")
-          height (px 5)
-          width (pct 100)
-          position absolute
-          bottom (px 0)
-          left (px 0)
-          backgroundColor C.white
-
-    ".title" ? do
-      height (pct 100)
-      fontSize (px 35)
-      textAlign (alignSide sideLeft)
-      paddingLeft headerPadding
-      paddingRight headerPadding
-
-    (".name" <> ".signOut") ? float floatRight
-
-    ".name" ? do
-      paddingLeft headerPadding
-      paddingRight headerPadding
-
-    ".signOut" ? do
-      height (pct 100)
-      fontSize iconFontSize
-      color C.white