From 37060c326a665447fba32c1371cebef97c860660 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Fri, 19 May 2017 10:25:40 -0400
Subject: [PATCH] fix build failure w/o concurrent-output

Also removed warning on old version, since the autobuilder highlights
warnings as errors and this is too minor for that.
---
 Messages/Concurrent.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Messages/Concurrent.hs b/Messages/Concurrent.hs
index 86a58f768e..18d89e6a23 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,8 +154,7 @@ hideRegionsWhile a = bracketIO setup cleanup go
 		liftIO $ hFlush stdout
 		a
 #else
-#ifdef WITH_CONCURRENTOUTPUT
-#warning Building with concurrent-output older than 1.9.0 so expect some display glitches when password prompts occur in concurrent mode
-#endif
+hideRegionsWhile = id
+#else
 hideRegionsWhile = id
 #endif