From 0041c546869f0a7fd59a085cc75b481237b6c380 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Fri, 10 Jul 2015 00:03:42 +0200
Subject: Fetching payments and showing them in a table

---
 src/server/Design/Global.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'src/server')

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index cc16e2e..3408b22 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Design.Global
   ( globalDesign
   ) where
@@ -12,10 +14,16 @@ globalDesign :: Text
 globalDesign = renderWith compact [] global
 
 global :: Css
-global =
+global = do
+
   header ?
     h1 ? do
       fontSize (px 40)
       textAlign (alignSide sideCenter)
       margin (px 30) (px 0) (px 30) (px 0)
       color C.brown
+
+  table ? do
+    width (pct 50)
+    textAlign (alignSide (sideCenter))
+    "border-spacing" -: "10 px"
-- 
cgit v1.2.3