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.3.3
+version:                7.3.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
@@ -42,9 +42,9 @@
   default-extensions:   BangPatterns GeneralizedNewtypeDeriving OverloadedStrings TupleSections
   build-depends:
                         aeson
-                      , amazonka              >= 1.6.1
-                      , amazonka-core         >= 1.6.1
-                      , amazonka-s3           >= 1.6.1
+                      , amazonka              >= 1.6.0
+                      , amazonka-core         >= 1.6.0
+                      , amazonka-s3           >= 1.6.0
                       , antiope-core
                       , antiope-messages
                       , attoparsec
@@ -74,9 +74,9 @@
   ghc-options:          -threaded -rtsopts -with-rtsopts=-N
   build-tool-depends:   hspec-discover:hspec-discover
   build-depends:        aeson
-                      , amazonka              >= 1.6.1
-                      , amazonka-core         >= 1.6.1
-                      , amazonka-s3           >= 1.6.1
+                      , amazonka              >= 1.6.0
+                      , amazonka-core         >= 1.6.0
+                      , amazonka-s3           >= 1.6.0
                       , antiope-core
                       , antiope-s3
                       , attoparsec
@@ -85,7 +85,7 @@
                       , conduit-extra
                       , exceptions
                       , generic-lens
-                      , hedgehog              >= 0.5      && < 0.7
+                      , hedgehog              >= 0.5      && < 1.1
                       , hspec                 >= 2.4      && < 2.7
                       , http-types
                       , hw-hspec-hedgehog     >= 0.1      && < 0.3
diff --git a/src/Antiope/S3/Internal.hs b/src/Antiope/S3/Internal.hs
--- a/src/Antiope/S3/Internal.hs
+++ b/src/Antiope/S3/Internal.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Antiope.S3.Internal where
 
 import Data.Monoid    ((<>))
diff --git a/src/Antiope/S3/Range.hs b/src/Antiope/S3/Range.hs
--- a/src/Antiope/S3/Range.hs
+++ b/src/Antiope/S3/Range.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Antiope.S3.Range
   ( Range(..)
   , rangeHeaderText
diff --git a/src/Antiope/S3/Types.hs b/src/Antiope/S3/Types.hs
--- a/src/Antiope/S3/Types.hs
+++ b/src/Antiope/S3/Types.hs
@@ -1,6 +1,7 @@
-{-# LANGUAGE DataKinds        #-}
-{-# LANGUAGE DeriveGeneric    #-}
-{-# LANGUAGE TypeApplications #-}
+{-# LANGUAGE DataKinds         #-}
+{-# LANGUAGE DeriveGeneric     #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TypeApplications  #-}
 
 module Antiope.S3.Types
   ( X.BucketName(..)
@@ -99,5 +100,5 @@
     return (S3Uri bn ok)
 
 dirname :: S3Uri -> S3Uri
-dirname (S3Uri bucket (ObjectKey key)) = S3Uri bucket (ObjectKey newKey)
+dirname (S3Uri bk (ObjectKey key)) = S3Uri bk (ObjectKey newKey)
   where newKey = T.intercalate "/" (reverse (drop 1 (dropWhile T.null (reverse (T.splitOn "/" key)))))
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
@@ -1,22 +1,20 @@
-module Antiope.S3.MessagesSpec
-where
+module Antiope.S3.MessagesSpec where
 
-import Antiope.S3          (BucketName (..), ETag (..), ObjectKey (..))
+import Antiope.S3                  (BucketName (..), ETag (..), ObjectKey (..))
 import Antiope.S3.Messages
-import Data.Aeson          (decode, encode)
-import Data.Monoid         ((<>))
-import Data.Text           (Text, pack)
+import Data.Aeson                  (decode, encode)
+import Data.Monoid                 ((<>))
+import Data.Text                   (Text, pack)
 import Data.Time.Calendar
 import Data.Time.Clock
-
-import qualified Data.Text as Text
-
 import HaskellWorks.Hspec.Hedgehog
 import Hedgehog
-import Hedgehog.Gen                as Gen
-import Hedgehog.Range              as Range
 import Test.Hspec
 
+import qualified Data.Text      as Text
+import qualified Hedgehog.Gen   as Gen
+import qualified Hedgehog.Range as Range
+
 {-# ANN module ("HLint: Ignore Redundant do" :: String) #-}
 
 genUTCTime :: MonadGen m => m UTCTime
@@ -66,3 +64,5 @@
   it "Can encode and decode S3Message" $ require $ property $ do
     msg <- forAll $ s3Message
     tripping msg encode decode
+
+