From: Joey Hess Date: Wed, 4 Nov 2015 20:30:55 +0000 (-0400) Subject: remove some debug prints X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~324^2~110 X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=340208f86b0b475fe599074e6aadf06b7144eeb7;p=git-annex.git remove some debug prints --- diff --git a/Messages/Internal.hs b/Messages/Internal.hs index e4651238b4..7f114c2c75 100644 --- a/Messages/Internal.hs +++ b/Messages/Internal.hs @@ -62,11 +62,8 @@ concurrentMessage iserror msg _ = go =<< consoleRegion <$> Annex.getState Annex. where go Nothing | iserror = liftIO $ Console.errorConcurrent msg - | otherwise = do - liftIO $ Console.outputConcurrent ("REGION MESSAGE NO REGION" ++ show msg) - liftIO $ Console.outputConcurrent msg + | otherwise = liftIO $ Console.outputConcurrent msg go (Just r) = do - liftIO $ Console.outputConcurrent ("REGION MESSAGE " ++ show msg) -- Can't display the error to stdout while -- console regions are in use, so set the errflag -- to get it to display to stderr later.