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 f647ce2..a65e01c 100644 --- a/src/server/Model/Message.hs +++ b/src/server/Model/Message.hs @@ -12,7 +12,6 @@ import Model.Message.Lang import Model.Message.Translations (getNonFormattedMessage) import Model.Message.Parts -import Model.Json.Translations import Model.Json.Translation getMessage :: Key -> Text @@ -21,8 +20,8 @@ getMessage = getParamMessage [] getParamMessage :: [Text] -> Key -> Text getParamMessage values key = replaceParts values (getNonFormattedMessage lang key) -getTranslations :: Translations -getTranslations = Translations (map getTranslation [minBound..]) +getTranslations :: [Translation] +getTranslations = (map getTranslation [minBound..]) getTranslation :: Key -> Translation getTranslation key = Translation (T.pack . show $ key) (getParts $ getNonFormattedMessage lang key) |