From 65ee3c42aabd6a94a461845c5e5f4d2bf0153e9a Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 20 May 2014 17:01:44 +0300
Subject: [PATCH] Workaround for manager issues

---
 Data/BlobStore.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Data/BlobStore.hs b/Data/BlobStore.hs
index df1d250..b2cc006 100644
--- a/Data/BlobStore.hs
+++ b/Data/BlobStore.hs
@@ -116,11 +116,15 @@ cachedS3Store cache creds bucket prefix manager =
                         len <- getZipSink $ ZipSink (sinkHandle h) *> ZipSink lengthCE
                         liftIO $ hClose h
                         liftIO $ IO.withFile fp IO.ReadMode $ \inH -> runResourceT $ do
+                            -- FIXME the need for this separate manager
+                            -- indicates a serious bug in either aws or (more
+                            -- likely) http-client, must investigate!
+                            manager' <- newManager
                             res <- Aws.aws
                                 (Aws.Configuration Aws.Timestamp creds
                                     $ Aws.defaultLog Aws.Error)
                                 Aws.defServiceConfig
-                                manager
+                                manager'
                                 (Aws.putObject bucket (toS3Path key)
                                     $ requestBodySource len
                                     $ sourceHandle inH)