From e32a9126ae7fd7f9596dd08b64ecab8644d994bd Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 30 Dec 2015 00:28:41 +0100
Subject: Upgrade to elm 0.16.0

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

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

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
-- 
cgit v1.2.3