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.
This commit is contained in:
Joey Hess 2017-05-19 10:25:40 -04:00
parent 9798ee3ffa
commit 37060c326a
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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