Login with a token validation

2 files changed, 17 insertions, 8 deletions

diff --git a/src/server/Design/Color.hs b/src/server/Design/Color.hs
index 6344fe6..b744cf2 100644
--- a/src/server/Design/Color.hs
+++ b/src/server/Design/Color.hs
@@ -11,5 +11,8 @@ brown = C.brown
 green :: C.Color
 green = C.green
 
+grey :: C.Color
+grey = C.rgb 200 200 200
+
 lightGrey :: C.Color
 lightGrey = C.rgb 245 245 245
diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 7074f65..6e3cbe6 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -9,7 +9,6 @@ import Prelude
 
 import Clay
 
-import Data.Monoid ((<>))
 import Data.Text.Lazy (Text)
 
 import Design.Color as C
@@ -23,8 +22,12 @@ iconFontSize = 32
 global :: Css
 global = do
 
+  input ? do
+    borderRadius (px 0) (px 0) (px 0) (px 0)
+    border solid (px 1) C.grey
+
   header ? do
-    let headerHeight = 120
+    let headerHeight = 150
 
     h1 ? do
       fontSize (px 40)
@@ -64,20 +67,23 @@ global = do
       lineHeight (px 60)
       nthChild "odd" & backgroundColor C.lightGrey
 
-  form # ".signIn" ? do
+  ".signIn" ? do
     let inputHeight = 50
-    marginTop (px 80)
-    marginBottom (px 80)
-    width (pct 60)
+    width (px 500)
+    marginTop (px 50)
     marginLeft auto
     marginRight auto
     input ? do
-      width (pct 80)
+      display block
+      width (pct 100)
       padding (px 10) (px 10) (px 10) (px 10)
       height (px inputHeight)
+      marginBottom (px 10)
     button ? do
-      width (pct 20)
+      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)