diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-12-22 22:03:18 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-12-23 01:08:19 -0400 |
| commit | fdf02986cf2c7db74cc8ca8ebd2786922652ff9b (patch) | |
| tree | d6a61cdf01df8b3e635f71a7dc3adfdd43a0a8f8 /Messages | |
| parent | 7227dd8f21f24c2ccadd38e1a3dec7b888a23e92 (diff) | |
find --json
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 + ] |