Adding login/logout functions thanks to a client session

1 files changed, 12 insertions, 2 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 3408b22..6460220 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -6,6 +6,7 @@ module Design.Global
 
 import Clay
 
+import Data.Monoid ((<>))
 import Data.Text.Lazy (Text)
 
 import Design.Color as C
@@ -20,10 +21,19 @@ global = do
     h1 ? do
       fontSize (px 40)
       textAlign (alignSide sideCenter)
-      margin (px 30) (px 0) (px 30) (px 0)
+      margin (px 30) (px 0) (px 40) (px 0)
       color C.brown
 
   table ? do
-    width (pct 50)
+    width (pct 100)
     textAlign (alignSide (sideCenter))
     "border-spacing" -: "10 px"
+
+    th ? do
+      color C.green
+      fontWeight bold
+      borderBottom solid (px 1) C.brown
+
+    tr <> th ? do
+      fontSize (px 18)
+      lineHeight (px 30)