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 -