diff options
author | Joey Hess <joeyh@joeyh.name> | 2015-11-04 16:30:55 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2015-11-04 16:30:55 -0400 |
commit | eb5ff0cf47a62ef0d617667059267ba772b77cce (patch) | |
tree | 9b11fdfc21bb99f5d5d44f530beb618ab9bd357b /Messages/Internal.hs | |
parent | 1bf9bbec4cd8c82985effddd5acdd0fba083b63b (diff) |
remove some debug prints
Diffstat (limited to 'Messages/Internal.hs')
-rw-r--r-- | Messages/Internal.hs | 5 |
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. |