From 3853811450d4fe801da996eb48825049c3541030 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 6 Sep 2015 16:46:59 +0200
Subject: Renaming PaymentView to LoggedInView

---
 src/client/ServerCommunication.elm | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'src/client/ServerCommunication.elm')

diff --git a/src/client/ServerCommunication.elm b/src/client/ServerCommunication.elm
index 20e2b14..6d65552 100644
--- a/src/client/ServerCommunication.elm
+++ b/src/client/ServerCommunication.elm
@@ -13,12 +13,12 @@ import Date
 import Model.Message exposing (messageDecoder)
 import Model.User exposing (UserId)
 import Model.Payment exposing (..)
-import Model.View.Payment.Add exposing (Frequency(..))
+import Model.View.LoggedIn.Add exposing (Frequency(..))
 
 import Update as U
 import Update.SignIn exposing (..)
-import Update.LoggedView as UL
-import Update.LoggedView.Monthly as UM
+import Update.LoggedIn as UL
+import Update.LoggedIn.Monthly as UM
 
 type Communication =
   NoCommunication
@@ -86,24 +86,24 @@ serverResult communication response =
         AddPayment userId name cost ->
           Http.send Http.defaultSettings (updatePageRequest 1)
             |> flip Task.andThen (decodeOkResponse paymentsDecoder (\payments ->
-                 Task.succeed <| U.UpdateLoggedView (UL.AddPayment userId name cost payments)
+                 Task.succeed <| U.UpdateLoggedIn (UL.AddPayment userId name cost payments)
                ))
         AddMonthlyPayment name cost ->
           decodeOkResponse
             ("id" := paymentIdDecoder)
-            (\id -> Task.succeed <| U.UpdateLoggedView (UL.AddMonthlyPayment id name cost))
+            (\id -> Task.succeed <| U.UpdateLoggedIn (UL.AddMonthlyPayment id name cost))
             response
         DeletePayment id userId cost currentPage ->
           Http.send Http.defaultSettings (updatePageRequest currentPage)
             |> flip Task.andThen (decodeOkResponse paymentsDecoder (\payments ->
-                 Task.succeed <| U.UpdateLoggedView (UL.DeletePayment userId cost payments)
+                 Task.succeed <| U.UpdateLoggedIn (UL.DeletePayment userId cost payments)
                ))
         DeleteMonthlyPayment id ->
-          Task.succeed <| U.UpdateLoggedView (UL.UpdateMonthly (UM.DeletePayment id))
+          Task.succeed <| U.UpdateLoggedIn (UL.UpdateMonthly (UM.DeletePayment id))
         UpdatePage page ->
           decodeOkResponse
             paymentsDecoder
-            (\payments -> Task.succeed <| U.UpdateLoggedView (UL.UpdatePage page payments))
+            (\payments -> Task.succeed <| U.UpdateLoggedIn (UL.UpdatePage page payments))
             response
         SignOut ->
           Task.succeed (U.GoSignInView)
-- 
cgit v1.2.3