diff options
| author | Joris | 2016-06-25 22:51:12 +0200 |
|---|---|---|
| committer | Joris | 2016-06-25 22:51:12 +0200 |
| commit | 0886d5916ae28e2a0d1d5c70fb81842a6d0dc70f (patch) | |
| tree | 8016750c80cac177d2bf315b2f59605f3a8f80d3 /src/client/elm/Dialog/AddPayment/View.elm | |
| parent | 70720548c9af024dbb6080638ac8e5470c2213eb (diff) | |
| download | budget-0886d5916ae28e2a0d1d5c70fb81842a6d0dc70f.tar.gz budget-0886d5916ae28e2a0d1d5c70fb81842a6d0dc70f.tar.bz2 budget-0886d5916ae28e2a0d1d5c70fb81842a6d0dc70f.zip | |
Add a remove icon to empty a input text field
Diffstat (limited to 'src/client/elm/Dialog/AddPayment/View.elm')
| -rw-r--r-- | src/client/elm/Dialog/AddPayment/View.elm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/src/client/elm/Dialog/AddPayment/View.elm b/src/client/elm/Dialog/AddPayment/View.elm index 8915b1d..79381dd 100644 --- a/src/client/elm/Dialog/AddPayment/View.elm +++ b/src/client/elm/Dialog/AddPayment/View.elm @@ -53,12 +53,12 @@ view loggedData frequency = addPaymentForm : LoggedData -> Form String DialogModel.AddPayment -> Html Msg addPaymentForm loggedData addPayment = - let htmlMap = Html.map (Msg.Dialog << Dialog.UpdateModel << DialogMsg.AddPaymentMsg) - in Html.form - [ class "addPayment" - , onSubmitPrevDefault Msg.NoOp - ] - [ Form.textInput loggedData.translations addPayment htmlMap "payment" "name" - , Form.textInput loggedData.translations addPayment htmlMap "payment" "cost" - , Form.radioInputs loggedData.translations addPayment htmlMap "payment" "frequency" [ toString Punctual, toString Monthly ] - ] + Html.map (Msg.Dialog << Dialog.UpdateModel << DialogMsg.AddPaymentMsg) <| + Html.form + [ class "addPayment" + , onSubmitPrevDefault Form.NoOp + ] + [ Form.textInput loggedData.translations addPayment "payment" "name" + , Form.textInput loggedData.translations addPayment "payment" "cost" + , Form.radioInputs loggedData.translations addPayment "payment" "frequency" [ toString Punctual, toString Monthly ] + ] |