From 75804df1cb231033f94183e41cdf79d36d8f6710 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 21 Aug 2016 14:30:40 +0200
Subject: Show a message if there is an error during a server request

---
 src/client/elm/LoggedIn/Update.elm | 49 --------------------------------------
 1 file changed, 49 deletions(-)

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

diff --git a/src/client/elm/LoggedIn/Update.elm b/src/client/elm/LoggedIn/Update.elm
index 68e840e..06cd623 100644
--- a/src/client/elm/LoggedIn/Update.elm
+++ b/src/client/elm/LoggedIn/Update.elm
@@ -13,7 +13,6 @@ import Platform.Cmd exposing (Cmd)
 import Form
 
 import Model exposing (Model)
-import Model.Translations exposing (getMessage)
 import Model.Payment as Payment exposing (Payment, Frequency(..))
 import Model.Income as Income exposing (Income)
 
@@ -59,14 +58,6 @@ update model msg loggedIn =
               , Cmd.map LoggedInMsg.IncomeMsg cmd
               )
 
-        LoggedInMsg.CreatePayment name cost date frequency ->
-          ( loggedIn
-          , Server.createPayment name cost date frequency
-              |> Task.perform
-                   (always LoggedInMsg.NoOp)
-                   (\paymentId -> LoggedInMsg.ValidateCreatePayment paymentId name cost date frequency)
-          )
-
         LoggedInMsg.ValidateCreatePayment paymentId name cost date frequency ->
           update model (LoggedInMsg.HomeMsg <| HomeMsg.SearchMsg (Form.Reset (HomeModel.searchInitial frequency))) loggedIn
             :> update model (LoggedInMsg.HomeMsg <| HomeMsg.UpdatePage 1)
@@ -77,28 +68,12 @@ update model msg loggedIn =
                      )
                )
 
-        LoggedInMsg.EditPayment paymentId name cost date frequency ->
-          ( loggedIn
-          , Server.editPayment paymentId name cost date frequency
-              |> Task.perform
-                   (always LoggedInMsg.NoOp)
-                   (always <| LoggedInMsg.ValidateEditPayment paymentId name cost date frequency)
-          )
-
         LoggedInMsg.ValidateEditPayment paymentId name cost date frequency ->
           let updatedPayment = Payment paymentId name cost date loggedIn.me frequency
           in  ( { loggedIn | payments = Payment.edit updatedPayment loggedIn.payments }
               , Cmd.none
               )
 
-        LoggedInMsg.DeletePayment paymentId ->
-          ( loggedIn
-          , Server.deletePayment paymentId
-              |> Task.perform
-                   (always LoggedInMsg.NoOp)
-                   (always (LoggedInMsg.ValidateDeletePayment paymentId))
-          )
-
         LoggedInMsg.ValidateDeletePayment paymentId ->
           let payments = Payment.delete paymentId loggedIn.payments
               frequency =
@@ -122,14 +97,6 @@ update model msg loggedIn =
                   , Cmd.none
                   )
 
-        LoggedInMsg.CreateIncome amount date ->
-          ( loggedIn
-          , Server.createIncome amount date
-              |> Task.perform
-                   (always LoggedInMsg.NoOp)
-                   (\incomeId -> (LoggedInMsg.ValidateCreateIncome incomeId amount date))
-          )
-
         LoggedInMsg.ValidateCreateIncome incomeId amount date ->
           let newIncome = { userId = loggedIn.me, amount = amount, time = Date.toTime date }
               loggedInIncome = loggedIn.income
@@ -140,14 +107,6 @@ update model msg loggedIn =
               , Cmd.none
               )
 
-        LoggedInMsg.EditIncome incomeId amount date ->
-          ( loggedIn
-          , Server.editIncome incomeId amount date
-              |> Task.perform
-                   (always LoggedInMsg.NoOp)
-                   (always <| LoggedInMsg.ValidateEditIncome incomeId amount date)
-          )
-
         LoggedInMsg.ValidateEditIncome incomeId amount date ->
           let updatedIncome = Income loggedIn.me (Date.toTime date) amount
               updateIncome mbIncome =
@@ -158,14 +117,6 @@ update model msg loggedIn =
               , Cmd.none
               )
 
-        LoggedInMsg.DeleteIncome incomeId ->
-          ( loggedIn
-          , Server.deleteIncome incomeId
-              |> Task.perform
-                   (always LoggedInMsg.NoOp)
-                   (always <| LoggedInMsg.ValidateDeleteIncome incomeId)
-          )
-
         LoggedInMsg.ValidateDeleteIncome incomeId ->
           ( { loggedIn | incomes = Dict.remove incomeId loggedIn.incomes }
           , Cmd.none
-- 
cgit v1.2.3