aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Update/LoggedIn
diff options
context:
space:
mode:
authorJoris2016-03-27 20:41:59 +0200
committerJoris2016-03-27 20:41:59 +0200
commit7c050fe2d2c3e8f190e019e1613d37b9d8ef22b9 (patch)
tree1465f7367335492cd246b67ab9a02968517d57a5 /src/client/elm/Update/LoggedIn
parent702d60cbcdf85216a1b18416f4480afb77384e8a (diff)
Regroup account modules
Diffstat (limited to 'src/client/elm/Update/LoggedIn')
-rw-r--r--src/client/elm/Update/LoggedIn/Account.elm75
1 files changed, 0 insertions, 75 deletions
diff --git a/src/client/elm/Update/LoggedIn/Account.elm b/src/client/elm/Update/LoggedIn/Account.elm
deleted file mode 100644
index 233efa9..0000000
--- a/src/client/elm/Update/LoggedIn/Account.elm
+++ /dev/null
@@ -1,75 +0,0 @@
-module Update.LoggedIn.Account
- ( updateAccount
- ) where
-
-import Maybe
-import Dict
-import Task
-
-import Effects exposing (Effects)
-
-import Server
-
-import Model.Action.AccountAction exposing (..)
-import Model.View.LoggedIn.Account exposing (..)
-
-import Utils.Maybe exposing (isJust)
-
-updateAccount : AccountAction -> Account -> (Account, Effects AccountAction)
-updateAccount action account =
- case action of
-
- NoOp ->
- (account, Effects.none)
-
- ToggleDetail ->
- ( { account | visibleDetail = not account.visibleDetail }
- , Effects.none
- )
-
- ToggleIncomeEdition ->
- ( { account | incomeEdition =
- if isJust account.incomeEdition
- then Nothing
- else Just (initIncomeEdition (Maybe.withDefault 0 (getCurrentIncome account)))
- }
- , Effects.none
- )
-
- UpdateIncomeEdition income ->
- case account.incomeEdition of
- Just incomeEdition ->
- ( { account | incomeEdition = Just { incomeEdition | income = income } }
- , Effects.none
- )
- Nothing ->
- ( account
- , Effects.none
- )
-
- UpdateEditionError error ->
- case account.incomeEdition of
- Just incomeEdition ->
- ( { account | incomeEdition = Just { incomeEdition | error = Just error } }
- , Effects.none
- )
- Nothing ->
- ( account
- , Effects.none
- )
-
- UpdateIncome currentTime amount ->
- ( account
- , Server.setIncome currentTime amount
- |> Task.map (\incomeId -> (ValidateUpdateIncome incomeId currentTime amount))
- |> flip Task.onError (always <| Task.succeed NoOp)
- |> Effects.task
- )
-
- ValidateUpdateIncome incomeId currentTime amount ->
- ( { account
- | incomes = Dict.insert incomeId { userId = account.me, creation = currentTime, amount = amount } account.incomes
- , incomeEdition = Nothing
- }
- , Effects.none
- )