Ameliore design in income page and stat page

1 files changed, 29 insertions, 31 deletions

diff --git a/src/server/Design/SignIn.hs b/src/server/Design/SignIn.hs
index 814cca3..c319d1e 100644
--- a/src/server/Design/SignIn.hs
+++ b/src/server/Design/SignIn.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 module Design.SignIn
-  ( signInDesign
+  ( design
   ) where
 
 import Clay
@@ -10,33 +10,31 @@ import Design.Color as C
 import Design.Helper
 import Design.Constants (focusLighten)
 
-signInDesign :: Css
-signInDesign =
-
-  ".signIn" ? do
-
-    form ? do
-      let inputHeight = 50
-      width (px 500)
-      marginTop (px 100)
-      marginLeft auto
-      marginRight auto
-
-      input ? do
-        defaultInput inputHeight
-        display block
-        width (pct 100)
-        marginBottom (px 10)
-
-      button ? do
-        iconButton C.blue C.white (px inputHeight) focusLighten
-        display block
-        width (pct 100)
-        fontSize (em 1.2)
-        ".waitingServer" & ("cursor" -: "not-allowed")
-
-    ".result" ? do
-      marginTop (px 40)
-      textAlign (alignSide sideCenter)
-      ".success" ? color C.green
-      ".error" ? color C.redError
+design :: Css
+design = do
+
+  form ? do
+    let inputHeight = 50
+    width (px 500)
+    marginTop (px 100)
+    marginLeft auto
+    marginRight auto
+
+    input ? do
+      defaultInput inputHeight
+      display block
+      width (pct 100)
+      marginBottom (px 10)
+
+    button ? do
+      iconButton C.blue C.white (px inputHeight) focusLighten
+      display block
+      width (pct 100)
+      fontSize (em 1.2)
+      ".waitingServer" & ("cursor" -: "not-allowed")
+
+  ".result" ? do
+    marginTop (px 40)
+    textAlign (alignSide sideCenter)
+    ".success" ? color C.green
+    ".error" ? color C.redError