fix stderr handling
This commit is contained in:
parent
20fb91a7ad
commit
45e97191c3
2 changed files with 3 additions and 2 deletions
|
@ -321,6 +321,7 @@ stderrHandle _ = error "expected stderrHandle"
|
|||
ioHandles :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> (Handle, Handle)
|
||||
ioHandles (Just hin, Just hout, _, _) = (hin, hout)
|
||||
ioHandles _ = error "expected ioHandles"
|
||||
oeHandles :: (Maybe Handle, Maybe Handle, Maybe Handle, ProcessHandle) -> (Handle, Handle)
|
||||
oeHandles (_, Just hout, Just herr, _) = (hout, herr)
|
||||
oeHandles _ = error "expected oeHandles"
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue