diff options
Diffstat (limited to 'Git/CatFile.hs')
| -rw-r--r-- | Git/CatFile.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Git/CatFile.hs b/Git/CatFile.hs index f779e99c6..46b59c631 100644 --- a/Git/CatFile.hs +++ b/Git/CatFile.hs @@ -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 |