diff options
Diffstat (limited to 'src/client/View')
-rw-r--r-- | src/client/View/Payments/Add.elm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/src/client/View/Payments/Add.elm b/src/client/View/Payments/Add.elm index 88a1bd7..d1431b8 100644 --- a/src/client/View/Payments/Add.elm +++ b/src/client/View/Payments/Add.elm @@ -17,6 +17,7 @@ import Update.Payment.Add exposing (..) import Model.View.Payment.Add exposing (..) import View.Events exposing (onSubmitPrevDefault) +import View.Icon exposing (renderIcon) import Utils.Maybe exposing (isJust) import Utils.Either exposing (toMaybeError) @@ -33,16 +34,16 @@ addPayment addPayment = ] [ div [ class "name" ] - [ label - [ for "nameInput" ] - [ text "Category" ] - , input + [ input [ id "nameInput" , class (if isJust addPayment.nameError then "error" else "") , value addPayment.name , on "input" targetValue (Signal.message actions.address << UpdatePayment << UpdateAdd << UpdateName) ] [] + , label + [ for "nameInput" ] + [ renderIcon "shopping-cart" ] , case addPayment.nameError of Just error -> div [ class "errorMessage" ] [ text error ] @@ -51,16 +52,16 @@ addPayment addPayment = ] , div [ class "cost" ] - [ label - [ for "costInput" ] - [ text "Cost" ] - , input + [ input [ id "costInput" , class (if isJust addPayment.costError then "error" else "") , value addPayment.cost , on "input" targetValue (Signal.message actions.address << UpdatePayment << UpdateAdd << UpdateCost) ] [] + , label + [ for "costInput" ] + [ renderIcon "euro" ] , case addPayment.costError of Just error -> div [ class "errorMessage" ] [ text error ] |