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/Model | |
| parent | a7db22556b91bc7c499e010b4c051f4442ad8ce2 (diff) | |
Upgrade to elm 0.16.0
Diffstat (limited to 'src/client/elm/Model')
| -rw-r--r-- | src/client/elm/Model/Payer.elm | 4 | ||||
| -rw-r--r-- | src/client/elm/Model/Translations.elm | 2 | ||||
| -rw-r--r-- | src/client/elm/Model/View/LoggedIn/Account.elm | 2 |
3 files changed, 4 insertions, 4 deletions
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 |