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/Json.hs | |
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/Json.hs')
-rw-r--r-- | src/server/Json.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/server/Json.hs b/src/server/Json.hs new file mode 100644 index 0000000..51287ed --- /dev/null +++ b/src/server/Json.hs @@ -0,0 +1,12 @@ +module Json + ( jsonObject + ) where + +import Web.Scotty (json, ActionM) + +import qualified Data.Aeson.Types as Json +import qualified Data.HashMap.Strict as M +import Data.Text (Text) + +jsonObject :: [(Text, Json.Value)] -> ActionM () +jsonObject = json . Json.Object . M.fromList |