1 files changed, 7 insertions, 7 deletions
diff --git a/src/client/elm/Update.elm b/src/client/elm/Update.elm
index 3c4614a..ed4b99d 100644
--- a/src/client/elm/Update.elm
+++ b/src/client/elm/Update.elm
@@ -35,23 +35,23 @@ updateModel action model =
     NoOp ->
       model
     UpdateTime time ->
-      { model | currentTime <- time }
+      { model | currentTime = time }
     GoSignInView ->
-      { model | view <- V.SignInView initSignInView }
+      { model | view = V.SignInView initSignInView }
     GoLoggedInView users me monthlyPayments payments paymentsCount payers ->
-      { model | view <- V.LoggedInView (initLoggedInView 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 }
+      let signInView = { initSignInView | result = Just (Err msg) }
+      in  { model | view = V.SignInView signInView }
     UpdateSignIn signInAction ->
       case model.view of
         V.SignInView signInView ->
-          { model | view <- V.SignInView (updateSignIn signInAction signInView) }
+          { model | view = V.SignInView (updateSignIn signInAction signInView) }
         _ ->
           model
     UpdateLoggedIn loggedAction ->
       case model.view of
         V.LoggedInView loggedInView ->
-          { model | view <- V.LoggedInView (updateLoggedIn model loggedAction loggedInView) }
+          { model | view = V.LoggedInView (updateLoggedIn model loggedAction loggedInView) }
         _ ->
           model