From 464aecc66294756ac3d49740d72e3a2ffb72c984 Mon Sep 17 00:00:00 2001
From: Wolf <vv01f@users.noreply.github.com>
Date: Mon, 20 Apr 2015 00:24:23 +0200
Subject: [PATCH] Update Common.hs

bitte gegen #46 testen
---
 Handler/Common.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Handler/Common.hs b/Handler/Common.hs
index e9cd87f..36b376f 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="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="crement" id=#{theId} name=#{name} *{attr} type="number" step=1 min=1 :req:required="" value="#{showVal val}">
+    <input id="crement" id=#{theId} name=#{name} *{attr} type="number" step=1 min=0 :req:required="required" value="#{showVal val}">
     |]
   , fieldEnctype = UrlEncoded
   }