From 8cd63a64abafe21378c35c2489d49f24c9ece3c9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 4 Apr 2016 01:27:36 +0200
Subject: Add income list CRUD in user page

---
 src/client/elm/LoggedIn/Home/Account/Update.elm | 49 -------------------------
 1 file changed, 49 deletions(-)
 delete mode 100644 src/client/elm/LoggedIn/Home/Account/Update.elm

(limited to 'src/client/elm/LoggedIn/Home/Account/Update.elm')

diff --git a/src/client/elm/LoggedIn/Home/Account/Update.elm b/src/client/elm/LoggedIn/Home/Account/Update.elm
deleted file mode 100644
index 59f1402..0000000
--- a/src/client/elm/LoggedIn/Home/Account/Update.elm
+++ /dev/null
@@ -1,49 +0,0 @@
-module LoggedIn.Home.Account.Update
-  ( update
-  ) where
-
-import Maybe
-
-import Effects exposing (Effects)
-
-import LoggedData exposing (LoggedData)
-
-import LoggedIn.Home.Account.Action as AccountAction
-import LoggedIn.Home.Account.Model as AccountModel
-
-import Utils.Maybe exposing (isJust)
-
-update : LoggedData -> AccountAction.Action -> AccountModel.Model -> (AccountModel.Model, Effects AccountAction.Action)
-update loggedData action account =
-  case action of
-
-    AccountAction.NoOp ->
-      (account, Effects.none)
-
-    AccountAction.ToggleDetail ->
-      ( { account | visibleDetail = not account.visibleDetail }
-      , Effects.none
-      )
-
-    AccountAction.ToggleIncomeEdition ->
-      ( { account | incomeEdition =
-          if isJust account.incomeEdition
-            then Nothing
-            else Just (AccountModel.initIncomeEdition (Maybe.withDefault 0 (AccountModel.getCurrentIncome loggedData.incomes loggedData.me account)))
-      }
-      , Effects.none
-      )
-
-    AccountAction.UpdateIncomeEdition income ->
-      ( case account.incomeEdition of
-          Nothing -> account
-          Just incomeEdition -> { account | incomeEdition = Just { incomeEdition | income = income } }
-      , Effects.none
-      )
-
-    AccountAction.UpdateEditionError error ->
-      ( case account.incomeEdition of
-          Nothing -> account
-          Just incomeEdition -> { account | incomeEdition = Just { incomeEdition | error = Just error } }
-      , Effects.none
-      )
-- 
cgit v1.2.3