diff options
Diffstat (limited to 'src/server/Model/Message.hs')
| -rw-r--r-- | src/server/Model/Message.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/server/Model/Message.hs b/src/server/Model/Message.hs index 8475740..12893b8 100644 --- a/src/server/Model/Message.hs +++ b/src/server/Model/Message.hs @@ -19,11 +19,10 @@ getMessage :: Key -> Text getMessage = getVarMessage [] getVarMessage :: [Text] -> Key -> Text -getVarMessage values key = - replaceParts values (getParts (getNonFormattedMessage lang key)) +getVarMessage values key = replaceParts values (getNonFormattedMessage lang key) getTranslations :: Translations getTranslations = Translations (map getTranslation [minBound..]) getTranslation :: Key -> Translation -getTranslation key = Translation (T.pack . show $ key) (getNonFormattedMessage lang key) +getTranslation key = Translation (T.pack . show $ key) (getParts $ getNonFormattedMessage lang key) |