css stuff
This commit is contained in:
parent
b89ed118ca
commit
93f16d92d0
2 changed files with 4 additions and 3 deletions
|
@ -50,7 +50,7 @@ currencyField = Field
|
||||||
Right (a, "") -> Right $ floor $ 100 * a
|
Right (a, "") -> Right $ floor $ 100 * a
|
||||||
_ -> Left $ MsgInvalidNumber rawVals
|
_ -> Left $ MsgInvalidNumber rawVals
|
||||||
, fieldView = \theId name attr val req -> toWidget [hamlet|$newline never
|
, 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
|
, fieldEnctype = UrlEncoded
|
||||||
}
|
}
|
||||||
|
@ -65,7 +65,7 @@ amountField = Field
|
||||||
Right (a, "") -> Right a
|
Right (a, "") -> Right a
|
||||||
_ -> Left $ MsgInvalidInteger s
|
_ -> Left $ MsgInvalidInteger s
|
||||||
, fieldView = \theId name attr val req -> toWidget [hamlet|$newline never
|
, 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
|
, fieldEnctype = UrlEncoded
|
||||||
}
|
}
|
||||||
|
|
|
@ -154,8 +154,9 @@ h1 {
|
||||||
-moz-animation-timing-function: linear;
|
-moz-animation-timing-function: linear;
|
||||||
}
|
}
|
||||||
|
|
||||||
input[type="submit"] {
|
input[type] {
|
||||||
width: auto;
|
width: auto;
|
||||||
|
min-width: 5em;
|
||||||
height: 5em;
|
height: 5em;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue