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

more efficient encoding

Browse source
This commit is contained in:
Joey Hess 2018-08-31 13:49:08 -04:00
parent 24b76cb8e0
commit 53d839d543
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 5 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Remote/S3.hs
View file

@ -759,14 +759,15 @@ mkS3VersionID' o (Just s)
| otherwise = Nothing | otherwise = Nothing
mkS3VersionID' _ Nothing = Nothing mkS3VersionID' _ Nothing = Nothing
-- A S3 version ID is "url ready" so does not contain spaces, -- A S3 version ID is "url ready" so does not contain '#' and so we'll use
-- but an Object may contain spaces, so put it last. -- that to separate it from the object id. (Could use a space, but spaces
-- in metadata values lead to an inefficient encoding.)
formatS3VersionID :: S3VersionID -> String formatS3VersionID :: S3VersionID -> String
formatS3VersionID (S3VersionID o v) = v ++ ' ' : T.unpack o formatS3VersionID (S3VersionID o v) = v ++ '#' : T.unpack o
parseS3VersionID :: String -> Maybe S3VersionID parseS3VersionID :: String -> Maybe S3VersionID
parseS3VersionID s = parseS3VersionID s =
let (v, o) = separate (== ' ') s let (v, o) = separate (== '#') s
in mkS3VersionID' (T.pack o) (Just v) in mkS3VersionID' (T.pack o) (Just v)
setS3VersionID :: S3Info -> UUID -> Key -> Maybe S3VersionID -> Annex () setS3VersionID :: S3Info -> UUID -> Key -> Maybe S3VersionID -> Annex ()