diff options
author | Joey Hess <joey@kitenet.net> | 2014-01-03 14:51:32 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2014-01-03 14:51:32 -0400 |
commit | 0013d5b66019a96c809d28c96a0d3555694b1de2 (patch) | |
tree | be86e519a6656e19e79936a3219d58db577a5849 /Command/Wanted.hs | |
parent | b43f518dcaa6eee106f41f9884dc73721becd769 (diff) |
wanted, schedule: Avoid printing "ok" after requested value.
Diffstat (limited to 'Command/Wanted.hs')
-rw-r--r-- | Command/Wanted.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/Command/Wanted.hs b/Command/Wanted.hs index a7b4a3d9e..9ea0c211f 100644 --- a/Command/Wanted.hs +++ b/Command/Wanted.hs @@ -8,9 +8,11 @@ module Command.Wanted where import Common.Annex +import qualified Annex import Command import qualified Remote import Logs.PreferredContent +import Types.Messages import qualified Data.Map as M @@ -36,6 +38,7 @@ start = parse performGet :: UUID -> CommandPerform performGet uuid = do + Annex.setOutput QuietOutput m <- preferredContentMapRaw liftIO $ putStrLn $ fromMaybe "" $ M.lookup uuid m next $ return True |