summaryrefslogtreecommitdiff
path: root/Messages
diff options
context:
space:
mode:
Diffstat (limited to 'Messages')
-rw-r--r--Messages/Internal.hs5
1 files changed, 1 insertions, 4 deletions
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.