diff options
Diffstat (limited to 'compiler/GHC/SysTools/Process.hs')
| -rw-r--r-- | compiler/GHC/SysTools/Process.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/SysTools/Process.hs b/compiler/GHC/SysTools/Process.hs index d697b92af7..7a219c9aad 100644 --- a/compiler/GHC/SysTools/Process.hs +++ b/compiler/GHC/SysTools/Process.hs @@ -281,7 +281,7 @@ builderMainLoop logger filter_fn pgm real_args mb_cwd mb_env = do inner hProcess case r of -- onException - Left (SomeExceptionWithLocation e _) -> do + Left (SomeExceptionWithLocation (SomeException e) _) -> do terminateProcess hProcess cleanup_handles throw e |