mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

find --json

Browse source
This commit is contained in:
Joey Hess 2011-12-22 22:03:18 -04:00
parent 7227dd8f21
commit fdf02986cf
4 changed files with 28 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Messages/JSON.hs
View file

@ -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
]