From cc6a51b5ca03ee1a3b5de7c32dd1324e1053f42a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 5 Sep 2015 14:14:25 +0200
Subject: Renaming PaymentView to LoggedView

---
 src/client/Update.elm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

diff --git a/src/client/Update.elm b/src/client/Update.elm
index 910f080..d643d4e 100644
--- a/src/client/Update.elm
+++ b/src/client/Update.elm
@@ -12,7 +12,7 @@ import Model.Payment exposing (Payments)
 import Model.Payers exposing (Payers)
 import Model.View as V
 import Model.View.SignInView exposing (..)
-import Model.View.PaymentView exposing (..)
+import Model.View.LoggedView exposing (..)
 
 import Update.SignIn exposing (..)
 import Update.Payment exposing (..)
@@ -23,7 +23,7 @@ type Action =
   | GoSignInView
   | SignInError String
   | UpdateSignIn SignInAction
-  | GoPaymentView Users UserId Payments Int Payers
+  | GoLoggedView Users UserId Payments Int Payers
   | UpdatePayment PaymentAction
 
 actions : Signal.Mailbox Action
@@ -38,8 +38,8 @@ updateModel action model =
       { model | currentTime <- time }
     GoSignInView ->
       { model | view <- V.SignInView initSignInView }
-    GoPaymentView users me payments paymentsCount payers ->
-      { model | view <- V.PaymentView (initPaymentView users me payments paymentsCount payers) }
+    GoLoggedView users me payments paymentsCount payers ->
+      { model | view <- V.LoggedView (initLoggedView users me payments paymentsCount payers) }
     SignInError msg ->
       let signInView = { initSignInView | result <- Just (Err msg) }
       in  { model | view <- V.SignInView signInView }
@@ -51,7 +51,7 @@ updateModel action model =
           model
     UpdatePayment paymentAction ->
       case model.view of
-        V.PaymentView paymentView ->
-          { model | view <- V.PaymentView (updatePayment model paymentAction paymentView) }
+        V.LoggedView loggedView ->
+          { model | view <- V.LoggedView (updatePayment model paymentAction loggedView) }
         _ ->
           model
-- 
cgit v1.2.3