remove some debug prints

diff --git a/Messages/Internal.hs b/Messages/Internal.hs
index e4651238b429d40307a2209f3be3bf58a10ff3c6..7f114c2c750a86632165cab879082e251601c7e5 100644 (file)
--- 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.