From 5b9958ba23efd1cc7153947e41dacf2ffa7e9b0d Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Mon, 13 Jan 2020 23:34:15 +0100 Subject: [PATCH] Switch to safe-exceptions --- hpath-io/hpath-io.cabal | 1 + hpath-io/src/HPath/IO.hs | 2 +- hpath-io/src/HPath/IO/Errors.hs | 3 +-- 3 files changed, 3 insertions(+), 3 deletions(-) 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 )