341269e035
* assistant, watcher: .gitignore files and other git ignores are now
honored, when git 1.8.4 or newer is installed.
(Thanks, Adam Spiers, for getting the necessary support into git for this.)
* importfeed: Ignores transient problems with feeds. Only exits nonzero
when a feed has repeatedly had a problems for at least 1 day.
* importfeed: Fix handling of dots in extensions.
* Windows: Added support for encrypted special remotes.
* Windows: Fixed permissions problem that prevented removing files
from directory special remote. Directory special remotes now fully usable.
# imported from the archive
37 lines
759 B
Haskell
37 lines
759 B
Haskell
{- git-annex JSON output
|
|
-
|
|
- Copyright 2011 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Messages.JSON (
|
|
start,
|
|
end,
|
|
note,
|
|
add,
|
|
complete
|
|
) where
|
|
|
|
import Text.JSON
|
|
|
|
import qualified Utility.JSONStream as Stream
|
|
|
|
start :: String -> Maybe String -> IO ()
|
|
start command file =
|
|
putStr $ Stream.start $ ("command", command) : filepart file
|
|
where
|
|
filepart Nothing = []
|
|
filepart (Just f) = [("file", f)]
|
|
|
|
end :: Bool -> IO ()
|
|
end b = putStr $ Stream.add [("success", b)] ++ Stream.end
|
|
|
|
note :: String -> IO ()
|
|
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 $ Stream.start v ++ Stream.end
|