From 0886d5916ae28e2a0d1d5c70fb81842a6d0dc70f Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 25 Jun 2016 22:51:12 +0200
Subject: Add a remove icon to empty a input text field

---
 src/client/elm/Dialog/AddPayment/View.elm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'src/client/elm/Dialog/AddPayment/View.elm')

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 ]
+      ]
-- 
cgit v1.2.3