diff options
author | Joris | 2015-12-30 00:28:41 +0100 |
---|---|---|
committer | Joris | 2015-12-30 00:32:44 +0100 |
commit | e32a9126ae7fd7f9596dd08b64ecab8644d994bd (patch) | |
tree | 8680faa00c624b81052f3617e6baf7ff8ea9645d /src/client/elm/Update.elm | |
parent | a7db22556b91bc7c499e010b4c051f4442ad8ce2 (diff) | |
download | budget-e32a9126ae7fd7f9596dd08b64ecab8644d994bd.tar.gz budget-e32a9126ae7fd7f9596dd08b64ecab8644d994bd.tar.bz2 budget-e32a9126ae7fd7f9596dd08b64ecab8644d994bd.zip |
Upgrade to elm 0.16.0
Diffstat (limited to 'src/client/elm/Update.elm')
-rw-r--r-- | src/client/elm/Update.elm | 14 |
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 |