diff options
Diffstat (limited to 'compiler/GHC/SysTools/Process.hs')
-rw-r--r-- | compiler/GHC/SysTools/Process.hs | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/compiler/GHC/SysTools/Process.hs b/compiler/GHC/SysTools/Process.hs index 564670040a..d7b340ab20 100644 --- a/compiler/GHC/SysTools/Process.hs +++ b/compiler/GHC/SysTools/Process.hs @@ -63,11 +63,7 @@ readCreateProcessWithExitCode' proc = do -- fork off a thread to start consuming the output outMVar <- newEmptyMVar -#if __GLASGOW_HASKELL__ >= 903 - let onError :: SomeExceptionWithLocation -> IO () -#else let onError :: SomeException -> IO () -#endif onError exc = putMVar outMVar (Left exc) _ <- forkIO $ handle onError $ do output <- hGetContents' outh |