aboutsummaryrefslogtreecommitdiff
path: root/src/client/Update/LoggedIn/Add.elm
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/Update/LoggedIn/Add.elm')
-rw-r--r--src/client/Update/LoggedIn/Add.elm29
1 files changed, 0 insertions, 29 deletions
diff --git a/src/client/Update/LoggedIn/Add.elm b/src/client/Update/LoggedIn/Add.elm
deleted file mode 100644
index 1f28997..0000000
--- a/src/client/Update/LoggedIn/Add.elm
+++ /dev/null
@@ -1,29 +0,0 @@
-module Update.LoggedIn.Add
- ( AddPaymentAction(..)
- , updateAddPayment
- ) where
-
-import Model.View.LoggedIn.Add exposing (..)
-
-type AddPaymentAction =
- UpdateName String
- | UpdateCost String
- | AddError (Maybe String) (Maybe String)
- | ToggleFrequency
-
-updateAddPayment : AddPaymentAction -> AddPayment -> AddPayment
-updateAddPayment action addPayment =
- case action of
- UpdateName name ->
- { addPayment | name <- name }
- UpdateCost cost ->
- { addPayment | cost <- cost }
- AddError nameError costError ->
- { addPayment
- | nameError <- nameError
- , costError <- costError
- }
- ToggleFrequency ->
- { addPayment
- | frequency <- if addPayment.frequency == Punctual then Monthly else Punctual
- }