diff options
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 |