From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 7 Jun 2021 18:51:12 +0000 (-0400)
Subject: remove unnecessary liftIO
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~1^2~91^2~281
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=70dbe61fc2b4d74447f5d2ef1f99e72bc6e2a02e;p=git-annex.git

remove unnecessary liftIO
---

diff --git a/Git/CatFile.hs b/Git/CatFile.hs
index 6bea8c0df3..b9f8305ece 100644
--- a/Git/CatFile.hs
+++ b/Git/CatFile.hs
@@ -326,7 +326,7 @@ catObjectStream repo a = withCatFileStream False repo go
 		(hClose hin)
 		(catObjectReader readObjectContent c hout)
 	feeder c h (v, ref) = do
-		liftIO $ writeChan c (ref, v)
+		writeChan c (ref, v)
 		S8.hPutStrLn h (fromRef' ref)
 
 catObjectMetaDataStream