From 7c050fe2d2c3e8f190e019e1613d37b9d8ef22b9 Mon Sep 17 00:00:00 2001 From: Joris Date: Sun, 27 Mar 2016 20:41:59 +0200 Subject: Regroup account modules --- src/client/elm/Update/LoggedIn/Account.elm | 75 ------------------------------ 1 file changed, 75 deletions(-) delete mode 100644 src/client/elm/Update/LoggedIn/Account.elm (limited to 'src/client/elm/Update/LoggedIn') 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 - ) -- cgit v1.2.3