diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-08-04 13:54:09 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-08-04 14:05:36 -0400 |
| commit | 8d2f003c63e0c1db0758e06f02b999365f8413a9 (patch) | |
| tree | 1d8dbda0065630a5b1f153249ea12ce17e4e68e0 /Git/CatFile.hs | |
| parent | 6db0c4414a0afee7118a9193800b627c40968fa1 (diff) | |
avoid more build warnings on Windows
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 |