diff options
author | 2015-11-04 14:52:07 -0400 | |
---|---|---|
committer | 2015-11-04 14:52:07 -0400 | |
commit | 527b6970457e74f8c88dfdac7c96241e2496a2f2 (patch) | |
tree | fdf6e4b273cc5043dd8e009675ba78f98659a514 /Messages/Concurrent.hs | |
parent | 1933f8a5599f33b95811710ad10e1ed17703699d (diff) |
add regions to concurrent output
still no progress displays when getting files etc, but a big improvement
Diffstat (limited to 'Messages/Concurrent.hs')
-rw-r--r-- | Messages/Concurrent.hs | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/Messages/Concurrent.hs b/Messages/Concurrent.hs deleted file mode 100644 index 3b7b28d28..000000000 --- a/Messages/Concurrent.hs +++ /dev/null @@ -1,33 +0,0 @@ -{- git-annex concurrent output - - - - Copyright 2015 Joey Hess <id@joeyh.name> - - - - Licensed under the GNU GPL version 3 or higher. - -} - -{-# LANGUAGE CPP #-} - -module Messages.Concurrent where - -import Common.Annex -import Messages.Internal -import Types.Messages - -#ifdef WITH_CONCURRENTOUTPUT -import qualified System.Console.Concurrent as Console -#endif - -{- Enable concurrent output when that has been requested. - - - - This should only be run once per git-annex lifetime, with - - everything that might generate messages run inside it. - -} -withConcurrentOutput :: Annex a -> Annex a -#ifdef WITH_CONCURRENTOUTPUT -withConcurrentOutput a = withOutputType go - where - go (ConcurrentOutput _) = Console.withConcurrentOutput a - go _ = a -#else -withConcurrentOutput = id -#endif |