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