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

better function name

Browse source
This commit is contained in:
Joey Hess 2019-01-14 20:59:09 -04:00
parent 1b6319a2c8
commit 2be6130053
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Annex/Locations.hs
View file

@ -534,9 +534,9 @@ fileKey = fileKey' . toRawFilePath
fileKey' :: RawFilePath -> Maybe Key fileKey' :: RawFilePath -> Maybe Key
fileKey' = deserializeKey' . S8.intercalate "/" . map go . S8.split '%' fileKey' = deserializeKey' . S8.intercalate "/" . map go . S8.split '%'
where where
go = S8.concat . go' . S8.split '&' go = S8.concat . unescafterfirst . S8.split '&'
go' [] = [] unescafterfirst [] = []
go' (b:bs) = b : map (unesc . S8.uncons) bs unescafterfirst (b:bs) = b : map (unesc . S8.uncons) bs
unesc :: Maybe (Char, S8.ByteString) -> S8.ByteString unesc :: Maybe (Char, S8.ByteString) -> S8.ByteString
unesc Nothing = mempty unesc Nothing = mempty
unesc (Just ('c', b)) = S8.cons ':' b unesc (Just ('c', b)) = S8.cons ':' b