diff options
Diffstat (limited to 'src/client/elm/Dialog')
| -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 ] + ] |