aboutsummaryrefslogtreecommitdiff
path: root/src/server/Model
diff options
context:
space:
mode:
authorJoris2015-09-06 15:54:38 +0200
committerJoris2015-09-06 15:54:38 +0200
commit0ae7d068263dffbc1cc2dc92c7829dd0037c97e7 (patch)
treec07d2a2fe22ac7b8a45e71d9bbcb5826922cbae8 /src/server/Model
parente10531ba4e60c8709088798763ae3bae6608f9c9 (diff)
The user can remove a monthly payment
Diffstat (limited to 'src/server/Model')
-rw-r--r--src/server/Model/Message.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/server/Model/Message.hs b/src/server/Model/Message.hs
index 12893b8..f647ce2 100644
--- a/src/server/Model/Message.hs
+++ b/src/server/Model/Message.hs
@@ -1,6 +1,6 @@
module Model.Message
( getMessage
- , getVarMessage
+ , getParamMessage
, getTranslations
) where
@@ -16,10 +16,10 @@ import Model.Json.Translations
import Model.Json.Translation
getMessage :: Key -> Text
-getMessage = getVarMessage []
+getMessage = getParamMessage []
-getVarMessage :: [Text] -> Key -> Text
-getVarMessage values key = replaceParts values (getNonFormattedMessage lang key)
+getParamMessage :: [Text] -> Key -> Text
+getParamMessage values key = replaceParts values (getNonFormattedMessage lang key)
getTranslations :: Translations
getTranslations = Translations (map getTranslation [minBound..])