From eb5ff0cf47a62ef0d617667059267ba772b77cce Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 4 Nov 2015 16:30:55 -0400 Subject: remove some debug prints --- Messages/Internal.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'Messages') diff --git a/Messages/Internal.hs b/Messages/Internal.hs index e4651238b..7f114c2c7 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. -- cgit v1.2.3