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 /libraries/base/GHC/IO/Handle.hs | |
| parent | b3ab7a1c9ffeb2808a7930e7bb0910a96454837f (diff) | |
| download | haskell-wip/T18159.tar.gz | |
Minimize diffwip/T18159
Diffstat (limited to 'libraries/base/GHC/IO/Handle.hs')
| -rw-r--r-- | libraries/base/GHC/IO/Handle.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/IO/Handle.hs b/libraries/base/GHC/IO/Handle.hs index 690b971c04..3efe254839 100644 --- a/libraries/base/GHC/IO/Handle.hs +++ b/libraries/base/GHC/IO/Handle.hs @@ -701,7 +701,7 @@ hDuplicateTo h1 _ = ioe_dupHandlesNotCompatible h1 try :: IO () -> IO () -try io = io `catchException` (const (pure ()) :: SomeExceptionWithLocation -> IO ()) +try io = io `catchException` (const (pure ()) :: SomeException -> IO ()) ioe_dupHandlesNotCompatible :: Handle -> IO a ioe_dupHandlesNotCompatible h = |