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

avoid more build warnings on Windows

Browse source
This commit is contained in:
Joey Hess 2013-08-04 13:54:09 -04:00
parent fc96861084
commit a3224ce35b
12 changed files with 29 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Git/CatFile.hs
View file

@ -93,10 +93,10 @@ catObjectDetails (CatFileHandle hdl repo) object = CoProcess.query hdl send rece
, Param "-p"
, Param query
] repo
(_, Just h, _, pid) <- withNullHandle $ \null ->
(_, Just h, _, pid) <- withNullHandle $ \h ->
createProcess p
{ std_out = CreatePipe
, std_err = UseHandle null
, std_err = UseHandle h
}
fileEncoding h
content <- L.hGetContents h