diff options
| author | Joris | 2015-09-06 15:54:38 +0200 |
|---|---|---|
| committer | Joris | 2015-09-06 15:54:38 +0200 |
| commit | 0ae7d068263dffbc1cc2dc92c7829dd0037c97e7 (patch) | |
| tree | c07d2a2fe22ac7b8a45e71d9bbcb5826922cbae8 /src/client/Model | |
| parent | e10531ba4e60c8709088798763ae3bae6608f9c9 (diff) | |
The user can remove a monthly payment
Diffstat (limited to 'src/client/Model')
| -rw-r--r-- | src/client/Model/Translations.elm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/client/Model/Translations.elm b/src/client/Model/Translations.elm index 2a8a3a7..a6de961 100644 --- a/src/client/Model/Translations.elm +++ b/src/client/Model/Translations.elm @@ -3,7 +3,7 @@ module Model.Translations , Translations , Translation , getMessage - , getVarMessage + , getParamMessage ) where import Maybe exposing (withDefault) @@ -51,10 +51,10 @@ partDecoderWithTag tag = ----- getMessage : String -> Translations -> String -getMessage = getVarMessage [] +getMessage = getParamMessage [] -getVarMessage : List String -> String -> Translations -> String -getVarMessage values key translations = +getParamMessage : List String -> String -> Translations -> String +getParamMessage values key translations = getTranslation key translations |> Maybe.map (\parts -> String.concat (List.map (replacePart values) parts)) |> withDefault key |