Fetching payments and showing them in a table

1 files changed, 9 insertions, 1 deletions

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"