From 70dbe61fc2b4d74447f5d2ef1f99e72bc6e2a02e Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 7 Jun 2021 14:51:12 -0400 Subject: [PATCH] remove unnecessary liftIO --- Git/CatFile.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.30.2