Validate add payment server side

1 files changed, 1 insertions, 15 deletions

diff --git a/src/client/elm/Model/View/LoggedIn/AddPayment.elm b/src/client/elm/Model/View/LoggedIn/AddPayment.elm
index 3a14b00..c7680bb 100644
--- a/src/client/elm/Model/View/LoggedIn/AddPayment.elm
+++ b/src/client/elm/Model/View/LoggedIn/AddPayment.elm
@@ -1,13 +1,10 @@
 module Model.View.LoggedIn.AddPayment
   ( AddPayment
   , initAddPayment
-  , validateName
-  , validateCost
   ) where
 
 import Result as Result exposing (Result(..))
-
-import Utils.Validation exposing (..)
+import Json.Decode exposing ((:=))
 
 import Model.Translations exposing (..)
 import Model.Payment exposing (PaymentFrequency(..))
@@ -30,14 +27,3 @@ initAddPayment frequency =
   , frequency = frequency
   , waitingServer = False
   }
-
-validateName : String -> Translations -> Result String String
-validateName name translations =
-  name
-    |> validateNonEmpty (getMessage "CategoryRequired" translations)
-
-validateCost : String -> Translations -> Result String Int
-validateCost cost translations =
-  cost
-    |> validateNonEmpty (getMessage "CostRequired" translations)
-    |> flip Result.andThen (validateNumber (getMessage "CostRequired" translations) ((/=) 0))