diff options
| author | Joris | 2016-03-20 22:38:44 +0100 |
|---|---|---|
| committer | Joris | 2016-03-21 20:43:55 +0100 |
| commit | 1c7d6ea6e3bcd3c672cb5eb3cf22ffc88cabb257 (patch) | |
| tree | 4ff8aeb6aa0f159548f8f506374276c1a2c97f7d /src/server/Model/Message.hs | |
| parent | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (diff) | |
use config-manager instead of ConfigFile
Diffstat (limited to 'src/server/Model/Message.hs')
| -rw-r--r-- | src/server/Model/Message.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/server/Model/Message.hs b/src/server/Model/Message.hs index a65e01c..0e83e5b 100644 --- a/src/server/Model/Message.hs +++ b/src/server/Model/Message.hs @@ -18,10 +18,13 @@ getMessage :: Key -> Text getMessage = getParamMessage [] getParamMessage :: [Text] -> Key -> Text -getParamMessage values key = replaceParts values (getNonFormattedMessage lang key) +getParamMessage values paramKey = replaceParts values (getNonFormattedMessage lang paramKey) getTranslations :: [Translation] getTranslations = (map getTranslation [minBound..]) getTranslation :: Key -> Translation -getTranslation key = Translation (T.pack . show $ key) (getParts $ getNonFormattedMessage lang key) +getTranslation translationKey = + Translation + (T.pack . show $ translationKey) + (getParts $ getNonFormattedMessage lang translationKey) |