From c4218e0ffed77e2afaafc8efd19efd907a6abd8a Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 3 Apr 2015 19:48:56 -0400 Subject: fix stderr handling --- Utility/Process.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Utility') diff --git a/Utility/Process.hs b/Utility/Process.hs index 64363cf6b..0f494810c 100644 --- a/Utility/Process.hs +++ b/Utility/Process.hs @@ -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" -- cgit v1.2.3