From 1e47a7754ca38bd1a6c74765d8378caf68ce4619 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 26 Mar 2017 21:10:42 +0200
Subject: Separate client and server watch

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

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

diff --git a/src/client/elm/LoggedIn/Update.elm b/src/client/elm/LoggedIn/Update.elm
deleted file mode 100644
index 9e6d6ee..0000000
--- a/src/client/elm/LoggedIn/Update.elm
+++ /dev/null
@@ -1,151 +0,0 @@
-module LoggedIn.Update exposing
-  ( update
-  )
-
-import Dict
-import String
-import Task
-
-import Http exposing (Error(..))
-import Date exposing (Date)
-import Platform.Cmd exposing (Cmd)
-
-import Form
-
-import Model exposing (Model)
-import Model.Payment as Payment exposing (Payment, Frequency(..))
-import Model.Income as Income exposing (Income)
-import Model.Category exposing (Category)
-import Model.PaymentCategory as PaymentCategory
-
-import Server
-import LoggedData
-
-import LoggedIn.Msg as LoggedInMsg
-import LoggedIn.Model as LoggedInModel
-
-import LoggedIn.Home.Msg as Home
-import LoggedIn.Home.Update as Home
-import LoggedIn.Home.Model as Home
-
-import LoggedIn.Income.Update as Income
-import LoggedIn.Income.Model as Income
-
-import LoggedIn.Category.Update as Categories
-import LoggedIn.Category.Model as Categories
-
-import Utils.Cmd exposing ((:>))
-
-update : Model -> LoggedInMsg.Msg -> LoggedInModel.Model -> (LoggedInModel.Model, Cmd LoggedInMsg.Msg)
-update model msg loggedIn =
-  let loggedData = LoggedData.build model loggedIn
-  in  case msg of
-
-        LoggedInMsg.NoOp ->
-          ( loggedIn
-          , Cmd.none
-          )
-
-        LoggedInMsg.HomeMsg homeMsg ->
-          case Home.update loggedData homeMsg loggedIn.home of
-            (home, effects) ->
-              ( { loggedIn | home = home }
-              , Cmd.map LoggedInMsg.HomeMsg effects
-              )
-
-        LoggedInMsg.IncomeMsg incomeMsg ->
-          case Income.update loggedData incomeMsg loggedIn.income of
-            (income, cmd) ->
-              ( { loggedIn | income = income }
-              , Cmd.map LoggedInMsg.IncomeMsg cmd
-              )
-
-        LoggedInMsg.CategoriesMsg categoriesMsg ->
-          case Categories.update loggedData categoriesMsg loggedIn.category of
-            (category, cmd) ->
-              ( { loggedIn | category = category }
-              , Cmd.map LoggedInMsg.CategoriesMsg cmd
-              )
-
-        LoggedInMsg.ValidateCreatePayment paymentId name cost date category frequency ->
-          update model (LoggedInMsg.HomeMsg <| Home.SearchMsg (Form.Reset (Home.searchInitial frequency))) loggedIn
-            :> update model (LoggedInMsg.HomeMsg <| Home.UpdatePage 1)
-            :> (\loggedIn ->
-                 let newPayment = Payment paymentId name cost date loggedIn.me frequency
-                 in  ( { loggedIn
-                       | payments = newPayment :: loggedIn.payments
-                       , paymentCategories = PaymentCategory.set name category loggedIn.paymentCategories
-                       }
-                     , Cmd.none
-                     )
-               )
-
-        LoggedInMsg.ValidateEditPayment paymentId name cost date category frequency ->
-          let updatedPayment = Payment paymentId name cost date loggedIn.me frequency
-              mbOldPayment = Payment.find paymentId loggedIn.payments
-          in  ( { loggedIn
-                | payments = Payment.edit updatedPayment loggedIn.payments
-                , paymentCategories =
-                    case mbOldPayment of
-                      Just oldPayment ->
-                        PaymentCategory.update oldPayment.name name category loggedIn.paymentCategories
-                      Nothing ->
-                        loggedData.paymentCategories
-                }
-              , Cmd.none
-              )
-
-        LoggedInMsg.ValidateDeletePayment paymentId ->
-          let payments = Payment.delete paymentId loggedIn.payments
-              frequency =
-                case Form.getOutput loggedIn.home.search of
-                  Just data -> data.frequency
-                  Nothing -> Punctual
-              switchToPunctual =
-                (  frequency == Monthly
-                && List.isEmpty (Payment.monthly payments)
-                )
-          in  if switchToPunctual
-                then
-                  update model (LoggedInMsg.HomeMsg <| Home.SearchMsg (Form.Reset (Home.searchInitial Punctual))) loggedIn
-                    :> (\loggedIn ->
-                         ( { loggedIn | payments = payments }
-                         , Cmd.none
-                         )
-                       )
-                else
-                  ( { loggedIn | payments = payments }
-                  , Cmd.none
-                  )
-
-        LoggedInMsg.ValidateCreateIncome incomeId amount date ->
-          let newIncome = { userId = loggedIn.me, amount = amount, time = Date.toTime date }
-          in  ( { loggedIn | incomes = Dict.insert incomeId newIncome loggedIn.incomes }
-              , Cmd.none
-              )
-
-        LoggedInMsg.ValidateEditIncome incomeId amount date ->
-          let updateIncome _ = Just <| Income loggedIn.me (Date.toTime date) amount
-          in  ( { loggedIn | incomes = Dict.update incomeId updateIncome loggedIn.incomes }
-              , Cmd.none
-              )
-
-        LoggedInMsg.ValidateDeleteIncome incomeId ->
-          ( { loggedIn | incomes = Dict.remove incomeId loggedIn.incomes }
-          , Cmd.none
-          )
-
-        LoggedInMsg.ValidateCreateCategory categoryId name color ->
-          let newCategory = { name = name, color = color }
-          in  ( { loggedIn | categories = Dict.insert categoryId newCategory loggedIn.categories }
-              , Cmd.none
-              )
-
-        LoggedInMsg.ValidateEditCategory categoryId name color ->
-          let updateCategory _ = Just <| Category name color
-          in  ( { loggedIn | categories = Dict.update categoryId updateCategory loggedIn.categories } , Cmd.none)
-
-        LoggedInMsg.ValidateDeleteCategory categoryId ->
-          ( { loggedIn | categories = Dict.remove categoryId loggedIn.categories }
-          , Cmd.none
-          )
-- 
cgit v1.2.3