diff options
| author | Joris Guyonvarch | 2015-08-11 21:32:10 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-08-11 21:32:10 +0200 |
| commit | 892a7dd19a92fc18767984e624b8a5026dce61e4 (patch) | |
| tree | 7d59d58d96958e91a4e9114be0effb9ec7a082a8 /src/server/Model/Message.hs | |
| parent | a3bab4f2a0cc8a6a95753dc91d8e862f40c80dcc (diff) | |
| download | budget-892a7dd19a92fc18767984e624b8a5026dce61e4.tar.gz budget-892a7dd19a92fc18767984e624b8a5026dce61e4.tar.bz2 budget-892a7dd19a92fc18767984e624b8a5026dce61e4.zip | |
Showing server sides generated messages from the client
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) |