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/Json/Translation.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/Json/Translation.hs')
-rw-r--r-- | src/server/Model/Json/Translation.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/server/Model/Json/Translation.hs b/src/server/Model/Json/Translation.hs index 7291157..9dcfe80 100644 --- a/src/server/Model/Json/Translation.hs +++ b/src/server/Model/Json/Translation.hs @@ -9,9 +9,11 @@ import GHC.Generics import Data.Aeson import Data.Text +import Model.Json.MessagePart + data Translation = Translation { key :: Text - , message :: Text + , message :: [MessagePart] } deriving (Show, Generic) instance FromJSON Translation |