Responsive header

1 files changed, 12 insertions, 12 deletions

diff --git a/src/server/Design/LoggedIn/Home/Table.hs b/src/server/Design/LoggedIn/Home/Table.hs
index 58ffb33..e7a00d1 100644
--- a/src/server/Design/LoggedIn/Home/Table.hs
+++ b/src/server/Design/LoggedIn/Home/Table.hs
@@ -9,8 +9,8 @@ import Data.Monoid ((<>))
 import Clay
 import qualified Clay.Display as D
 
-import Design.Color as C
-import Design.Media
+import Design.Color as Color
+import qualified Design.Media as Media
 import Design.Constants
 import Design.Helper
 
@@ -26,8 +26,8 @@ design = do
 
   ".header" ? do
     fontWeight bold
-    backgroundColor C.blue
-    color C.white
+    backgroundColor Color.blue
+    color Color.white
     fontSize iconFontSize
     lineHeight headerHeight
 
@@ -46,7 +46,7 @@ design = do
 
         width (px borderW)
         height (px rowHeightPx)
-        backgroundColor C.green
+        backgroundColor Color.green
 
       ".cell:first-child::after" ? do
         display block
@@ -59,12 +59,12 @@ design = do
         height (px 0)
         borderTop solid (px triangleH) transparent
         borderBottom solid (px triangleH) transparent
-        borderLeft solid (px triangleW) C.green
+        borderLeft solid (px triangleW) Color.green
 
     nthChild "odd" & do
-      backgroundColor C.lightGrey
+      backgroundColor Color.mercury
     ".edition" & do
-      backgroundColor C.paymentFocus
+      backgroundColor Color.paymentFocus
       ".delete" |> button ? visibility visible
 
   ".cell" ? do
@@ -73,14 +73,14 @@ design = do
     ".category" & width (pct 40)
     ".cost" & do
       width (pct 17)
-      ".refund" & color C.green
+      ".refund" & color Color.green
     ".user" & width (pct 20)
     ".date" & do
       width (pct 20)
-      smallScreen $ do
+      Media.mobileTablet $ do
         ".shortDate" ? display inline
         ".longDate" ? display none
-      largeScreen $ do
+      Media.desktop $ do
         ".shortDate" ? display none
         ".longDate" ? display inline
     ".delete" & do
@@ -88,7 +88,7 @@ design = do
       width (pct 3)
       textAlign (alignSide sideCenter)
       button ? do
-        defaultButton C.red C.white (px rowHeightPx) focusLighten
+        defaultButton Color.red Color.white (px rowHeightPx) focusLighten
         borderRadius (px 0) (px 0) (px 0) (px 0)
         position absolute
         top (px 0)