diff options
| author | Joris | 2015-09-11 10:36:27 +0200 |
|---|---|---|
| committer | Joris | 2015-09-11 10:36:27 +0200 |
| commit | d87dbd1360c14df83552fd757438c23e5d7b9f9c (patch) | |
| tree | 8b28def0414205608bd964c9b38a98b9d6828655 /src/server/Model | |
| parent | 73fa92aeffb27a98d8f316be157883ecefb1aed5 (diff) | |
| download | budget-d87dbd1360c14df83552fd757438c23e5d7b9f9c.tar.gz budget-d87dbd1360c14df83552fd757438c23e5d7b9f9c.tar.bz2 budget-d87dbd1360c14df83552fd757438c23e5d7b9f9c.zip | |
Using jsonObject to create on the fly json object responses
Diffstat (limited to 'src/server/Model')
| -rw-r--r-- | src/server/Model/Json/Message.hs | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/src/server/Model/Json/Message.hs b/src/server/Model/Json/Message.hs deleted file mode 100644 index 354dd8f..0000000 --- a/src/server/Model/Json/Message.hs +++ /dev/null @@ -1,16 +0,0 @@ -{-# LANGUAGE DeriveGeneric #-} - -module Model.Json.Message - ( Message(..) - ) where - -import Data.Aeson -import Data.Text (Text) -import GHC.Generics - -data Message = Message - { message :: Text - } deriving (Show, Generic) - -instance FromJSON Message -instance ToJSON Message |