From a94813019b146d75f7556d10e8d0dfd50586f54d Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Sep 2015 11:23:04 +0200
Subject: Splitting Global design file into a hierarchy of files

---
 src/server/Design/SignIn.hs | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 src/server/Design/SignIn.hs

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

diff --git a/src/server/Design/SignIn.hs b/src/server/Design/SignIn.hs
new file mode 100644
index 0000000..2350c54
--- /dev/null
+++ b/src/server/Design/SignIn.hs
@@ -0,0 +1,39 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Design.SignIn
+  ( signInDesign
+  ) where
+
+import Clay
+
+import Design.Color as C
+import Design.Helper
+
+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
+        defaultButton C.red C.white (px inputHeight)
+        display block
+        width (pct 100)
+
+    ".result" ? do
+      marginTop (px 40)
+      textAlign (alignSide sideCenter)
+      ".success" ? color C.greenSuccess
+      ".error" ? color C.redError
-- 
cgit v1.2.3