diff --git a/antiope-s3.cabal b/antiope-s3.cabal
--- a/antiope-s3.cabal
+++ b/antiope-s3.cabal
@@ -2,10 +2,10 @@
 --
 -- see: https://github.com/sol/hpack
 --
--- hash: cb9253395f0d7044cd5476617e13b349681f71983576c96f9c54dc1fd444ecfc
+-- hash: 19b4fae3538865f4994cfed0107b02fc384b3dafdfd9bd9b571193876b5134b2
 
 name:           antiope-s3
-version:        6.1.0
+version:        6.1.1
 description:    Please see the README on Github at <https://github.com/arbor/antiope#readme>
 category:       Services
 homepage:       https://github.com/arbor/antiope#readme
diff --git a/src/Antiope/S3/Strict.hs b/src/Antiope/S3/Strict.hs
--- a/src/Antiope/S3/Strict.hs
+++ b/src/Antiope/S3/Strict.hs
@@ -8,6 +8,7 @@
 
 import Antiope.Core                 ()
 import Antiope.S3.Types             (S3Uri)
+import Control.Monad                ((<$!>))
 import Control.Monad.Trans.AWS      hiding (send)
 import Control.Monad.Trans.Resource
 import Network.AWS                  (MonadAWS)
@@ -21,15 +22,15 @@
   => AWS.BucketName
   -> AWS.ObjectKey
   -> m BS.ByteString
-unsafeDownload bucketName objectKey = runResourceT $ LBS.toStrict <$> LBS.unsafeDownload bucketName objectKey
+unsafeDownload bucketName objectKey = runResourceT $ LBS.toStrict <$!> LBS.unsafeDownload bucketName objectKey
 
 download :: (MonadAWS m, MonadUnliftIO m)
   => AWS.BucketName
   -> AWS.ObjectKey
   -> m (Maybe BS.ByteString)
-download bucketName objectKey = runResourceT $ fmap LBS.toStrict <$> LBS.download bucketName objectKey
+download bucketName objectKey = runResourceT $  (LBS.toStrict <$!>) <$!> LBS.download bucketName objectKey
 
 downloadFromS3Uri :: (MonadAWS m, MonadUnliftIO m)
   => S3Uri
   -> m (Maybe BS.ByteString)
-downloadFromS3Uri s3Uri = runResourceT $ fmap LBS.toStrict <$> LBS.downloadFromS3Uri s3Uri
+downloadFromS3Uri s3Uri = runResourceT $ (LBS.toStrict <$!>) <$!> LBS.downloadFromS3Uri s3Uri