hw-uri 0.1.1.10 → 0.1.1.11

raw patch · 2 files changed

+3/−5 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hw-uri.cabal +1/−1
• src/HaskellWorks/Data/Uri/IO/Lazy.hs +2/−4

@@ -1,7 +1,7 @@ cabal-version:          2.4  name:                   hw-uri-version:                0.1.1.10+version:                0.1.1.11 synopsis:               Supports IO on URIs description:            Supports IO on URIs. homepage:               https://github.com/haskell-works/hw-uri

@@ -48,7 +48,6 @@ import qualified Network.AWS.S3.HeadObject        as AWS import qualified Network.AWS.S3.PutObject         as AWS import qualified Network.HTTP.Client              as HTTP-import qualified Network.HTTP.Types               as HTTP import qualified System.Directory                 as IO import qualified System.FilePath.Posix            as FP import qualified System.IO                        as IO@@ -61,9 +60,8 @@ handleAwsError :: MonadCatch m => m a -> m (Either UriError a) handleAwsError f = catch (Right <$> f) $ \(e :: AWS.Error) ->   case e of-    (AWS.ServiceError (AWS.ServiceError' _ s@(HTTP.Status 404 _) _ _ _ _)) -> return (Left (AwsUriError s))-    (AWS.ServiceError (AWS.ServiceError' _ s@(HTTP.Status 301 _) _ _ _ _)) -> return (Left (AwsUriError s))-    _                                                                      -> throwM e+    (AWS.ServiceError (AWS.ServiceError' _ s _ _ _ _)) -> return (Left (AwsUriError s))+    _                                                  -> throwM e  handleHttpError :: MonadCatch m => m a -> m (Either UriError a) handleHttpError f = catch (Right <$> f) $ \(e :: HTTP.HttpException) ->