diff options
| -rw-r--r-- | Messages/Concurrent.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Messages/Concurrent.hs b/Messages/Concurrent.hs index 78eed3bb1..18d89e6a2 100644 --- a/Messages/Concurrent.hs +++ b/Messages/Concurrent.hs @@ -144,6 +144,7 @@ concurrentOutputSupported = return False - the regions will not be hidden, but the action still runs, garbling the - display. -} hideRegionsWhile :: Annex a -> Annex a +#ifdef WITH_CONCURRENTOUTPUT #if MIN_VERSION_concurrent_output(1,9,0) hideRegionsWhile a = bracketIO setup cleanup go where @@ -153,6 +154,7 @@ hideRegionsWhile a = bracketIO setup cleanup go liftIO $ hFlush stdout a #else -#warning Building with concurrent-output older than 1.9.0 so expect some display glitches when password prompts occur in concurrent mode +hideRegionsWhile = id +#else hideRegionsWhile = id #endif |