diff options
| author | Joey Hess <joey@kitenet.net> | 2014-06-06 14:04:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-06-06 14:04:55 -0400 |
| commit | 1e935c7d4a30ae7c9d7f519b093f8fbe1717bb63 (patch) | |
| tree | de7309b2ececcb96fbf0a48f77926b16b813ded1 | |
| parent | 67a1b83f2ab5242d06ca3e1b0d1c269a34683ba7 (diff) | |
fix build with old versions of bytestringdebian/5.20140529_bpo70+2
(cherry picked from commit 2f84659d51d13c092b632adf02ccdcea0748201d)
| -rw-r--r-- | Remote/S3.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index 796800a7ba..c883e2a5b1 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -293,7 +293,7 @@ writeUUIDFile c u = do either s3Error return =<< liftIO (sendObject conn object) file = filePrefix c ++ "annex-uuid" - uuidb = L.fromStrict $ T.encodeUtf8 $ T.pack $ fromUUID u + uuidb = L.fromChunks [T.encodeUtf8 $ T.pack $ fromUUID u] bucket = fromJust $ getBucket c mkobject = S3Object bucket file "" (getXheaders c) |