From 331d506281760ac62e8f1715ef729e1b2a91e280 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Sun, 19 Jul 2015 17:28:19 +0200
Subject: Showing either error or success message at sign in page

---
 src/server/Design/Global.hs | 48 +++++++++++++++++++++++++++------------------
 1 file changed, 29 insertions(+), 19 deletions(-)

(limited to 'src/server/Design/Global.hs')

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 6e3cbe6..6985174 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -68,22 +68,32 @@ global = do
       nthChild "odd" & backgroundColor C.lightGrey
 
   ".signIn" ? do
-    let inputHeight = 50
-    width (px 500)
-    marginTop (px 50)
-    marginLeft auto
-    marginRight auto
-    input ? do
-      display block
-      width (pct 100)
-      padding (px 10) (px 10) (px 10) (px 10)
-      height (px inputHeight)
-      marginBottom (px 10)
-    button ? do
-      display block
-      width (pct 100)
-      height (px inputHeight)
-      backgroundColor C.brown
-      color C.white
-      borderWidth (px 0)
-      borderRadius (px 3) (px 3) (px 3) (px 3)
+
+    ".form" ? do
+      let inputHeight = 50
+      width (px 500)
+      marginTop (px 50)
+      marginLeft auto
+      marginRight auto
+
+      input ? do
+        display block
+        width (pct 100)
+        padding (px 10) (px 10) (px 10) (px 10)
+        height (px inputHeight)
+        marginBottom (px 10)
+
+      button ? do
+        display block
+        width (pct 100)
+        height (px inputHeight)
+        backgroundColor C.brown
+        color C.white
+        borderWidth (px 0)
+        borderRadius (px 3) (px 3) (px 3) (px 3)
+
+    ".result" ? do
+      marginTop (px 40)
+      textAlign (alignSide sideCenter)
+      ".success" ? color C.green
+      ".error" ? color C.red
-- 
cgit v1.2.3