1 files changed, 9 insertions, 9 deletions
diff --git a/src/client/Update.elm b/src/client/Update.elm
index 6ee5ab6..23e5c84 100644
--- a/src/client/Update.elm
+++ b/src/client/Update.elm
@@ -12,10 +12,10 @@ import Model.Payment exposing (Payments)
 import Model.Payers exposing (Payers)
 import Model.View as V
 import Model.View.SignInView exposing (..)
-import Model.View.LoggedView exposing (..)
+import Model.View.LoggedInView exposing (..)
 
 import Update.SignIn exposing (..)
-import Update.LoggedView exposing (..)
+import Update.LoggedIn exposing (..)
 
 type Action =
   NoOp
@@ -23,8 +23,8 @@ type Action =
   | GoSignInView
   | SignInError String
   | UpdateSignIn SignInAction
-  | GoLoggedView Users UserId Payments Payments Int Payers
-  | UpdateLoggedView LoggedAction
+  | GoLoggedInView Users UserId Payments Payments Int Payers
+  | UpdateLoggedIn LoggedAction
 
 actions : Signal.Mailbox Action
 actions = Signal.mailbox NoOp
@@ -38,8 +38,8 @@ updateModel action model =
       { model | currentTime <- time }
     GoSignInView ->
       { model | view <- V.SignInView initSignInView }
-    GoLoggedView users me monthlyPayments payments paymentsCount payers ->
-      { model | view <- V.LoggedView (initLoggedView users me monthlyPayments payments paymentsCount payers) }
+    GoLoggedInView users me monthlyPayments payments paymentsCount payers ->
+      { model | view <- V.LoggedInView (initLoggedInView users me monthlyPayments payments paymentsCount payers) }
     SignInError msg ->
       let signInView = { initSignInView | result <- Just (Err msg) }
       in  { model | view <- V.SignInView signInView }
@@ -49,9 +49,9 @@ updateModel action model =
           { model | view <- V.SignInView (updateSignIn signInAction signInView) }
         _ ->
           model
-    UpdateLoggedView loggedAction ->
+    UpdateLoggedIn loggedAction ->
       case model.view of
-        V.LoggedView loggedView ->
-          { model | view <- V.LoggedView (updateLoggedView model loggedAction loggedView) }
+        V.LoggedInView loggedInView ->
+          { model | view <- V.LoggedInView (updateLoggedIn model loggedAction loggedInView) }
         _ ->
           model