Show the payment table with server side paging

3 files changed, 12 insertions, 2 deletions

diff --git a/server/src/Design/View/Header.hs b/server/src/Design/View/Header.hs
index 59e0e51..609d8fc 100644
--- a/server/src/Design/View/Header.hs
+++ b/server/src/Design/View/Header.hs
@@ -25,7 +25,6 @@ design = do
   ".title" <> ".item" ? headerPadding
 
   ".title" ? do
-    height (pct 100)
     textAlign (alignSide sideLeft)
 
     Media.mobile $ fontSize (px 22)
diff --git a/server/src/Design/View/SignIn.hs b/server/src/Design/View/SignIn.hs
index a39276e..42c9621 100644
--- a/server/src/Design/View/SignIn.hs
+++ b/server/src/Design/View/SignIn.hs
@@ -13,7 +13,7 @@ import qualified Design.Helper    as Helper
 design :: Css
 design = do
   let inputHeight = 50
-  maxWidth (px 550)
+  width (px 350)
   sym2 padding (rem 0) (rem 2)
   marginTop (px 100)
   marginLeft auto
diff --git a/server/src/Design/View/Table.hs b/server/src/Design/View/Table.hs
index 1c4e806..c77cb7c 100644
--- a/server/src/Design/View/Table.hs
+++ b/server/src/Design/View/Table.hs
@@ -67,6 +67,17 @@ design = do
 
       ".refund" & color Color.mossGreen
 
+      Media.desktop $ do
+        ".shortDate" ? display none
+        ".longDate" ? display inline
+      Media.tablet $ do
+        ".shortDate" ? display inline
+        ".longDate" ? display none
+      Media.mobile $ do
+        ".shortDate" ? display none
+        ".longDate" ? display inline
+        marginBottom (em 0.5)
+
       ".cell.button" & do
         position relative
         textAlign (alignSide sideCenter)