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/LoggedIn.elm | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

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

diff --git a/src/client/elm/Update/LoggedIn.elm b/src/client/elm/Update/LoggedIn.elm
index e477094..5292c25 100644
--- a/src/client/elm/Update/LoggedIn.elm
+++ b/src/client/elm/Update/LoggedIn.elm
@@ -31,38 +31,38 @@ updateLoggedIn : Model -> LoggedAction -> LoggedInView -> LoggedInView
 updateLoggedIn model action loggedInView =
   case action of
     UpdateAdd addPaymentAction ->
-      { loggedInView | add <- updateAddPayment addPaymentAction loggedInView.add }
+      { loggedInView | add = updateAddPayment addPaymentAction loggedInView.add }
     UpdatePayments payments ->
-      { loggedInView | payments <- payments }
+      { loggedInView | payments = payments }
     AddPayment userId name cost payments ->
       { loggedInView
-      | payments <- payments
-      , currentPage <- 1
-      , add <- initAddPayment Punctual
-      , account <- UA.updateAccount (UA.UpdatePayer userId model.currentTime cost) loggedInView.account
-      , paymentsCount <- loggedInView.paymentsCount + 1
+      | payments = payments
+      , currentPage = 1
+      , add = initAddPayment Punctual
+      , account = UA.updateAccount (UA.UpdatePayer userId model.currentTime cost) loggedInView.account
+      , paymentsCount = loggedInView.paymentsCount + 1
       }
     AddMonthlyPayment id name cost ->
       { loggedInView
-      | add <- initAddPayment Monthly
-      , monthly <-
+      | add = initAddPayment Monthly
+      , monthly =
           let payment = Payment id (Date.fromTime model.currentTime) name cost loggedInView.account.me
           in  UM.updateMonthly (UM.AddPayment payment) loggedInView.monthly
       }
     ToggleEdit id ->
-      { loggedInView | paymentEdition <- if loggedInView.paymentEdition == Just id then Nothing else Just id }
+      { loggedInView | paymentEdition = if loggedInView.paymentEdition == Just id then Nothing else Just id }
     DeletePayment payment payments ->
       { loggedInView
-      | payments <- payments
-      , account <- UA.updateAccount (UA.UpdatePayer payment.userId (Date.toTime payment.creation) -payment.cost) loggedInView.account
-      , paymentsCount <- loggedInView.paymentsCount - 1
+      | payments = payments
+      , account = UA.updateAccount (UA.UpdatePayer payment.userId (Date.toTime payment.creation) -payment.cost) loggedInView.account
+      , paymentsCount = loggedInView.paymentsCount - 1
       }
     UpdatePage page payments ->
       { loggedInView
-      | currentPage <- page
-      , payments <- payments
+      | currentPage = page
+      , payments = payments
       }
     UpdateMonthly monthlyAction ->
-      { loggedInView | monthly <- UM.updateMonthly monthlyAction loggedInView.monthly }
+      { loggedInView | monthly = UM.updateMonthly monthlyAction loggedInView.monthly }
     UpdateAccount accountAction ->
-      { loggedInView | account <- UA.updateAccount accountAction loggedInView.account }
+      { loggedInView | account = UA.updateAccount accountAction loggedInView.account }
-- 
cgit v1.2.3