From 93f16d92d048469b9e78a57f144688470b50fa64 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Sun, 12 Apr 2015 18:01:26 +0200
Subject: [PATCH] css stuff

---
 Handler/Common.hs   | 4 ++--
 static/css/main.css | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/Handler/Common.hs b/Handler/Common.hs
index 453010d..9f67b43 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -50,7 +50,7 @@ currencyField = Field
         Right (a, "") -> Right $ floor $ 100 * a
         _             -> Left $ MsgInvalidNumber rawVals
   , fieldView = \theId name attr val req -> toWidget [hamlet|$newline never
-      <input id='{theId} name=#{name} *{attr} type="number" step=0.01 min=0 :req:required="" value=#{showVal val}>
+      <input id=#{theId} name=#{name} *{attr} type="number" step=0.01 min=0 :req:required="" value=#{showVal val}>
       |]
   , fieldEnctype = UrlEncoded
   }
@@ -65,7 +65,7 @@ amountField = Field
       Right (a, "") -> Right a
       _ -> Left $ MsgInvalidInteger s
   , fieldView = \theId name attr val req -> toWidget [hamlet|$newline never
-    <input id=#{theId} name="#{name}" *{attr} type="number" step=1 min=0 :req:required="" value="#{showVal val}">
+    <input id=#{theId} name=#{name} *{attr} type="number" step=1 min=0 :req:required="" value="#{showVal val}">
     |]
   , fieldEnctype = UrlEncoded
   }
diff --git a/static/css/main.css b/static/css/main.css
index b8776eb..bbbaaa1 100644
--- a/static/css/main.css
+++ b/static/css/main.css
@@ -154,8 +154,9 @@ h1 {
 	-moz-animation-timing-function: linear;
 }
 
-input[type="submit"] {
+input[type] {
 	width: auto;
+	min-width: 5em;
 	height: 5em;
 }