mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove unnecessary liftIO

Browse source
This commit is contained in:
Joey Hess 2021-06-07 14:51:12 -04:00
parent 570e93abfd
commit 70dbe61fc2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Git/CatFile.hs
View file

@ -326,7 +326,7 @@ catObjectStream repo a = withCatFileStream False repo go
(hClose hin) (hClose hin)
(catObjectReader readObjectContent c hout) (catObjectReader readObjectContent c hout)
feeder c h (v, ref) = do feeder c h (v, ref) = do
liftIO $ writeChan c (ref, v) writeChan c (ref, v)
S8.hPutStrLn h (fromRef' ref) S8.hPutStrLn h (fromRef' ref)
catObjectMetaDataStream catObjectMetaDataStream