Fixing percent computation for add payment labels

1 files changed, 3 insertions, 2 deletions

diff --git a/src/server/Design/Global.hs b/src/server/Design/Global.hs
index ebe7ad7..25b7d95 100644
--- a/src/server/Design/Global.hs
+++ b/src/server/Design/Global.hs
@@ -53,7 +53,7 @@ global = do
   ".payments" ? do
     form # ".add" ? do
       let inputHeight = 40
-      width (pct 60)
+      width (pct 80)
       marginLeft auto
       marginRight auto
       marginBottom (px 45)
@@ -61,8 +61,9 @@ global = do
 
       ".name" <> ".cost" ? do
         position relative
-        width (pct 50)
+        width (pct 49)
         label ? do
+          display inlineBlock
           width (pct 25)
           paddingRight (pct 5)
         input ? defaultInput inputHeight