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/Model/Payer.elm                 | 4 ++--
 src/client/elm/Model/Translations.elm          | 2 +-
 src/client/elm/Model/View/LoggedIn/Account.elm | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/client/elm/Model')

diff --git a/src/client/elm/Model/Payer.elm b/src/client/elm/Model/Payer.elm
index 9fd1bb5..f39a612 100644
--- a/src/client/elm/Model/Payer.elm
+++ b/src/client/elm/Model/Payer.elm
@@ -51,9 +51,9 @@ updatePayers payers userId creation amountDiff =
                   |> Maybe.withDefault False
            in  if postIncome
                  then
-                   Just { payer | postIncomePaymentSum <- payer.postIncomePaymentSum + amountDiff }
+                   Just { payer | postIncomePaymentSum = payer.postIncomePaymentSum + amountDiff }
                  else
-                   Just { payer | preIncomePaymentSum <- payer.preIncomePaymentSum + amountDiff }
+                   Just { payer | preIncomePaymentSum = payer.preIncomePaymentSum + amountDiff }
          Nothing ->
            Nothing
     )
diff --git a/src/client/elm/Model/Translations.elm b/src/client/elm/Model/Translations.elm
index bec8c9b..dbf378c 100644
--- a/src/client/elm/Model/Translations.elm
+++ b/src/client/elm/Model/Translations.elm
@@ -45,7 +45,7 @@ partDecoderWithTag : String -> Json.Decoder MessagePart
 partDecoderWithTag tag =
   case tag of
     "Order" -> Json.object1 Order ("contents" := Json.int)
-    "Str" -> Json.object1 Str ("contents" := Json.string)
+    _ -> Json.object1 Str ("contents" := Json.string)
 
 -----
 
diff --git a/src/client/elm/Model/View/LoggedIn/Account.elm b/src/client/elm/Model/View/LoggedIn/Account.elm
index 2bb3ae7..4638c8d 100644
--- a/src/client/elm/Model/View/LoggedIn/Account.elm
+++ b/src/client/elm/Model/View/LoggedIn/Account.elm
@@ -31,7 +31,7 @@ initAccount me payers =
       payers
         |> mapValues
              (\payer ->
-               { payer | incomes <- List.sortBy .creation payer.incomes }
+               { payer | incomes = List.sortBy .creation payer.incomes }
              )
   , visibleDetail = False
   , incomeEdition = Nothing
-- 
cgit v1.2.3