diff --git a/hpath-io/hpath-io.cabal b/hpath-io/hpath-io.cabal index 648736c..8f35312 100644 --- a/hpath-io/hpath-io.cabal +++ b/hpath-io/hpath-io.cabal @@ -39,6 +39,7 @@ library , bytestring >= 0.10.0.0 , hpath >= 0.10 && < 0.11 , hpath-filepath >= 0.10 && < 0.11 + , safe-exceptions >= 0.1 , streamly >= 0.7 , unix >= 2.5 , unix-bytestring diff --git a/hpath-io/src/HPath/IO.hs b/hpath-io/src/HPath/IO.hs index d1740ea..e20533a 100644 --- a/hpath-io/src/HPath/IO.hs +++ b/hpath-io/src/HPath/IO.hs @@ -95,7 +95,7 @@ import Control.Applicative ( (<$>) ) -import Control.Exception +import Control.Exception.Safe ( IOException , bracket diff --git a/hpath-io/src/HPath/IO/Errors.hs b/hpath-io/src/HPath/IO/Errors.hs index 4668c52..2511134 100644 --- a/hpath-io/src/HPath/IO/Errors.hs +++ b/hpath-io/src/HPath/IO/Errors.hs @@ -48,7 +48,7 @@ import Control.Applicative ( (<$>) ) -import Control.Exception +import Control.Exception.Safe hiding (handleIOError) import Control.Monad ( forM @@ -96,7 +96,6 @@ import {-# SOURCE #-} HPath.IO import System.IO.Error ( alreadyExistsErrorType - , catchIOError , ioeGetErrorType , mkIOError )