aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Update/LoggedIn/Add.elm
diff options
context:
space:
mode:
authorJoris2016-01-02 19:07:19 +0100
committerJoris2016-01-02 19:07:19 +0100
commitbb316286b0859b5648c61f44c88399f4c1aad9cd (patch)
treeecbe401c1ff657987b6609997a69775969a317f7 /src/client/elm/Update/LoggedIn/Add.elm
parent0d0c99fd28b782c7daf02fb5cc48d3eb252e705d (diff)
downloadbudget-bb316286b0859b5648c61f44c88399f4c1aad9cd.tar.gz
budget-bb316286b0859b5648c61f44c88399f4c1aad9cd.tar.bz2
budget-bb316286b0859b5648c61f44c88399f4c1aad9cd.zip
Use start-app for elm
Diffstat (limited to 'src/client/elm/Update/LoggedIn/Add.elm')
-rw-r--r--src/client/elm/Update/LoggedIn/Add.elm29
1 files changed, 0 insertions, 29 deletions
diff --git a/src/client/elm/Update/LoggedIn/Add.elm b/src/client/elm/Update/LoggedIn/Add.elm
deleted file mode 100644
index 92bdb7e..0000000
--- a/src/client/elm/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
- }