aboutsummaryrefslogtreecommitdiff
path: root/src/client/Model/View/LoggedIn/Add.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Model/View/LoggedIn/Add.elm')
-rw-r--r--src/client/Model/View/LoggedIn/Add.elm43
1 files changed, 0 insertions, 43 deletions
diff --git a/src/client/Model/View/LoggedIn/Add.elm b/src/client/Model/View/LoggedIn/Add.elm
deleted file mode 100644
index 5598084..0000000
--- a/src/client/Model/View/LoggedIn/Add.elm
+++ /dev/null
@@ -1,43 +0,0 @@
-module Model.View.LoggedIn.Add
- ( AddPayment
- , Frequency(..)
- , initAddPayment
- , validateName
- , validateCost
- ) where
-
-import Result as Result exposing (Result(..))
-
-import Utils.Validation exposing (..)
-
-import Model.Translations exposing (..)
-
-type alias AddPayment =
- { name : String
- , nameError : Maybe String
- , cost : String
- , costError : Maybe String
- , frequency : Frequency
- }
-
-initAddPayment : Frequency -> AddPayment
-initAddPayment frequency =
- { name = ""
- , nameError = Nothing
- , cost = ""
- , costError = Nothing
- , frequency = frequency
- }
-
-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 "CostMustBeNonNullNumber" translations) ((/=) 0))
-
-type Frequency = Punctual | Monthly