diff --git a/antiope-s3.cabal b/antiope-s3.cabal
--- a/antiope-s3.cabal
+++ b/antiope-s3.cabal
@@ -1,7 +1,7 @@
 cabal-version: 2.4
 
 name:                   antiope-s3
-version:                7.4.3
+version:                7.4.4
 synopsis:               Please see the README on Github at <https://github.com/arbor/antiope#readme>
 description:            Please see the README on Github at <https://github.com/arbor/antiope#readme>.
 category:               Services
@@ -12,6 +12,7 @@
 copyright:              Arbor Networks
 license:                MIT
 license-file:           LICENSE
+tested-with:            GHC == 8.8.1, GHC == 8.6.5, GHC == 8.4.4
 build-type:             Simple
 extra-source-files:     README.md
                         ChangeLog.md
@@ -87,7 +88,7 @@
                       , exceptions
                       , generic-lens
                       , hedgehog              >= 0.5      && < 1.1
-                      , hspec                 >= 2.4      && < 2.7
+                      , hspec                 >= 2.4      && < 2.8
                       , http-types
                       , hw-hspec-hedgehog     >= 0.1      && < 0.3
                       , lens
diff --git a/src/Antiope/S3.hs b/src/Antiope/S3.hs
--- a/src/Antiope/S3.hs
+++ b/src/Antiope/S3.hs
@@ -163,7 +163,7 @@
   let dObjs = delete' & dObjects .~ (objectIdentifier <$> ks)
   resp <- AWS.send (deleteObjects b dObjs)
   unless (List.null $ resp ^. drsErrors) $
-    fail (resp ^. drsErrors & show)
+    error (resp ^. drsErrors & show)
   let deleted = resp ^.. drsDeleted . each . dKey & catMaybes <&> S3Uri b
   pure deleted
 
diff --git a/test/Antiope/S3/MessagesSpec.hs b/test/Antiope/S3/MessagesSpec.hs
--- a/test/Antiope/S3/MessagesSpec.hs
+++ b/test/Antiope/S3/MessagesSpec.hs
@@ -24,8 +24,8 @@
     d <- Gen.int (Range.constant 1 28)
     let day = fromGregorian y m d
     secs <- toInteger <$> Gen.int (Range.constant 0 86401)
-    let diff = secondsToDiffTime secs
-    pure $ UTCTime day diff
+    let diffTime = secondsToDiffTime secs
+    pure $ UTCTime day diffTime
 
 datedPath :: MonadGen m => m Text
 datedPath = do