Validate add payment server side

1 files changed, 3 insertions, 7 deletions

diff --git a/src/client/elm/View/LoggedIn/AddPayment.elm b/src/client/elm/View/LoggedIn/AddPayment.elm
index 0b39591..0149432 100644
--- a/src/client/elm/View/LoggedIn/AddPayment.elm
+++ b/src/client/elm/View/LoggedIn/AddPayment.elm
@@ -2,7 +2,6 @@ module View.LoggedIn.AddPayment
   ( addPayment
   ) where
 
-import Reads exposing (readInt)
 import Result exposing (..)
 import Signal exposing (Address)
 
@@ -31,13 +30,10 @@ addPayment address model loggedInView =
   H.form
     [ let update =
             if loggedInView.add.waitingServer
-              then Action.NoOp
+              then
+                Action.NoOp
               else
-                case (validateName loggedInView.add.name model.translations, validateCost loggedInView.add.cost model.translations) of
-                  (Ok name, Ok cost) ->
-                    UpdateLoggedIn <| LoggedInAction.AddPayment name cost loggedInView.add.frequency
-                  (resName, resCost) ->
-                    UpdateLoggedIn <| UpdateAdd <| AddError (toMaybeError resName) (toMaybeError resCost)
+                UpdateLoggedIn <| LoggedInAction.AddPayment loggedInView.add.name loggedInView.add.cost loggedInView.add.frequency
       in  onSubmitPrevDefault address update
     , class "addPayment"
     ]