remove unnecessary liftIO

diff --git a/Git/CatFile.hs b/Git/CatFile.hs
index 6bea8c0df3533eceef715e4d34c7860a697ef308..b9f8305ececed62567f97a63373778ae9b117588 100644 (file)
--- 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