diff options
Diffstat (limited to 'Messages')
| -rw-r--r-- | Messages/JSON.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Messages/JSON.hs b/Messages/JSON.hs index a325ef130..f7a031e38 100644 --- a/Messages/JSON.hs +++ b/Messages/JSON.hs @@ -9,7 +9,8 @@ module Messages.JSON ( start, end, note, - add + add, + complete ) where import Text.JSON @@ -31,3 +32,9 @@ note s = add [("note", s)] add :: JSON a => [(String, a)] -> IO () add v = putStr $ Stream.add v + +complete :: JSON a => [(String, a)] -> IO () +complete v = putStr $ concat + [ Stream.start v + , Stream.end + ] |