aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Dialog/AddPaymentButton/View.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Dialog/AddPaymentButton/View.elm')
-rw-r--r--src/client/elm/Dialog/AddPaymentButton/View.elm2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/client/elm/Dialog/AddPaymentButton/View.elm b/src/client/elm/Dialog/AddPaymentButton/View.elm
index 16616fe..585b1b7 100644
--- a/src/client/elm/Dialog/AddPaymentButton/View.elm
+++ b/src/client/elm/Dialog/AddPaymentButton/View.elm
@@ -62,7 +62,7 @@ addPaymentForm loggedData addPayment =
]
[ htmlMap <| Form.textInput loggedData.translations addPayment "payment" "name"
, htmlMap <| Form.textInput loggedData.translations addPayment "payment" "cost"
- , if (Maybe.map .frequency <| Form.getOutput addPayment) == Just Punctual
+ , if (Form.getFieldAsString "frequency" addPayment).value == Just (toString Punctual)
then htmlMap <| Form.textInput loggedData.translations addPayment "payment" "date"
else text ""
, htmlMap <| Form.radioInputs loggedData.translations addPayment "payment" "frequency" [ toString Punctual, toString Monthly ]