mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with old versions of bytestring

Browse source
This commit is contained in:
Joey Hess 2014-06-06 14:04:35 -04:00
parent c03f192a4b
commit 2f84659d51
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Remote/S3.hs
View file

@ -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)