diff --git a/Messages/Concurrent.hs b/Messages/Concurrent.hs
index 0e39114dde..91b8402316 100644
--- a/Messages/Concurrent.hs
+++ b/Messages/Concurrent.hs
@@ -32,10 +32,12 @@ import GHC.IO.Encoding
  - instead.
  -}
 concurrentMessage :: OutputType -> Bool -> String -> Annex () -> Annex ()
-concurrentMessage o iserror msg fallback 
 #ifdef WITH_CONCURRENTOUTPUT
+concurrentMessage o iserror msg fallback 
 	| concurrentOutputEnabled o =
 		go =<< consoleRegion <$> Annex.getState Annex.output
+#else
+concurrentMessage _o _iserror _msg fallback 
 #endif
 	| otherwise = fallback
 #ifdef WITH_CONCURRENTOUTPUT
@@ -67,8 +69,8 @@ concurrentMessage o iserror msg fallback
  - complete.
  -}
 inOwnConsoleRegion :: OutputType -> Annex a -> Annex a
-inOwnConsoleRegion o a
 #ifdef WITH_CONCURRENTOUTPUT
+inOwnConsoleRegion o a
 	| concurrentOutputEnabled o = do
 		r <- mkregion
 		setregion (Just r)
@@ -82,6 +84,8 @@ inOwnConsoleRegion o a
 			Right ret -> do
 				rmregion r
 				return ret
+#else
+inOwnConsoleRegion _o a
 #endif
 	| otherwise = a
 #ifdef WITH_CONCURRENTOUTPUT
diff --git a/Messages/Progress.hs b/Messages/Progress.hs
index 1583d922b9..c0a88be94b 100644
--- a/Messages/Progress.hs
+++ b/Messages/Progress.hs
@@ -45,8 +45,8 @@ metered combinemeterupdate key a = case keySize key of
 			maybe noop (\m -> m n) combinemeterupdate
 		liftIO $ clearMeter stdout meter
 		return r
-	go size o@(ConcurrentOutput {})
 #if WITH_CONCURRENTOUTPUT
+	go size o@(ConcurrentOutput {})
 		| concurrentOutputEnabled o = withProgressRegion $ \r -> do
 			(progress, meter) <- mkmeter size
 			a $ \n -> liftIO $ do
@@ -54,6 +54,8 @@ metered combinemeterupdate key a = case keySize key of
 				s <- renderMeter meter
 				Regions.setConsoleRegion r ("\n" ++ s)
 				maybe noop (\m -> m n) combinemeterupdate
+#else
+	go _size _o
 #endif
 		| otherwise = nometer