Use buttons or links when elements are clickable

1 files changed, 6 insertions, 5 deletions

diff --git a/src/client/View/Payments/Add.elm b/src/client/View/Payments/Add.elm
index deffb95..f352f1f 100644
--- a/src/client/View/Payments/Add.elm
+++ b/src/client/View/Payments/Add.elm
@@ -28,8 +28,7 @@ import Utils.Either exposing (toMaybeError)
 addPayment : Model -> LoggedView -> Html
 addPayment model loggedView =
   H.form
-    [ class "add"
-    , case (validateName loggedView.add.name model.translations, validateCost loggedView.add.cost model.translations) of
+    [ case (validateName loggedView.add.name model.translations, validateCost loggedView.add.cost model.translations) of
         (Ok name, Ok cost) ->
           let action =
                 case loggedView.add.frequency of
@@ -43,7 +42,8 @@ addPayment model loggedView =
     , addPaymentCost model loggedView.add
     , paymentFrequency model loggedView.add
     , button
-        [ type' "submit" ]
+        [ type' "submit"
+        , class "add" ]
         [ text (getMessage "Add" model.translations)]
     ]
 
@@ -91,8 +91,9 @@ addPaymentCost model addPayment =
 
 paymentFrequency : Model -> AddPayment -> Html
 paymentFrequency model addPayment =
-  div
-    [ class "frequency"
+  button
+    [ type' "button"
+    , class "frequency"
     , onClick actions.address (UpdateLoggedView << UpdateAdd <| ToggleFrequency)
     ]
     [ div