From d9df5c3fcffe12aac239b58ccf2fd82c19c3be62 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2016 23:37:14 +0100
Subject: Validate add payment server side

---
 src/client/elm/View/LoggedIn/AddPayment.elm | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

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

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