Simpler add payment with icons instead of text for labels

2 files changed, 12 insertions, 7 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index 25b7d95..59e4171 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -64,19 +64,23 @@ global = do
         width (pct 49)
         label ? do
           display inlineBlock
-          width (pct 25)
-          paddingRight (pct 5)
+          width (pct 20)
+          textAlign (alignSide sideCenter)
+          color C.brown
+          height (px inputHeight)
+          lineHeight (px inputHeight)
+          fontSize (px 22)
+          verticalAlign middle
         input ? defaultInput inputHeight
 
       ".name" ? do
         float floatLeft
-        input ? width (pct 70)
+        input ? width (pct 75)
 
       ".cost" ? do
         float floatRight
-        input ? do
-          width (pct 45)
-          marginRight (pct 5)
+        input ? do width (pct 50)
+        label ? marginRight (pct 5)
         button ? do
           defaultButton
           width (pct 20)
@@ -145,6 +149,7 @@ defaultButton = do
   color C.white
   borderWidth (px 0)
   borderRadius (px 3) (px 3) (px 3) (px 3)
+  verticalAlign middle
 
 defaultInput :: Integer -> Css
 defaultInput inputHeight = do
@@ -153,3 +158,4 @@ defaultInput inputHeight = do
   borderRadius (px 0) (px 0) (px 0) (px 0)
   border solid (px 1) C.grey
   focus & borderColor C.green
+  verticalAlign middle
diff --git a/src/server/View/Page.hs b/src/server/View/Page.hs
index 5b9f06e..a397a96 100644
--- a/src/server/View/Page.hs
+++ b/src/server/View/Page.hs
@@ -5,7 +5,6 @@ module View.Page
   ) where
 
 import Data.Text.Internal.Lazy (Text)
-import Data.Text.Internal.Lazy as TL
 
 import Text.Blaze.Html
 import Text.Blaze.Html5