diff options
| author | Sven Tennie <sven.tennie@gmail.com> | 2021-09-23 11:44:52 +0200 |
|---|---|---|
| committer | Sven Tennie <sven.tennie@gmail.com> | 2021-09-23 11:44:52 +0200 |
| commit | 6a15425cc769032ad30adc3122c6e356a5e2e764 (patch) | |
| tree | dc95a14204f5421feaf16dfb3f289b22a5b39406 /compiler/GHC/SysTools/Process.hs | |
| parent | b3ab7a1c9ffeb2808a7930e7bb0910a96454837f (diff) | |
| download | haskell-wip/T18159.tar.gz | |
Minimize diffwip/T18159
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 |