Fix bug that sometimes prevented git-annex smudge --clean from consuming all its input, which resulted in git add bypassing git-annex.

1 files changed, 7 insertions, 2 deletions

diff --git a/Command/Smudge.hs b/Command/Smudge.hs
index 1e169c1bf..52367d499 100644
--- a/Command/Smudge.hs
+++ b/Command/Smudge.hs
@@ -73,8 +73,13 @@ clean file = do
 	if isJust (parseLinkOrPointer b)
 		then liftIO $ B.hPut stdout b
 		else ifM (shouldAnnex file)
-			( liftIO . emitPointer
-				=<< go =<< ingest =<< lockDown cfg file
+			( do
+				-- Even though we ingest the actual file,
+				-- and not stdin, we need to consume all
+				-- stdin, or git will get annoyed.
+				B.length b `seq` return ()
+				liftIO . emitPointer
+					=<< go =<< ingest =<< lockDown cfg file
 			, liftIO $ B.hPut stdout b
 			)
 	stop