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

escape colons in key files

Browse source
This commit is contained in:
Joey Hess 2011-03-15 23:39:04 -04:00
parent 49b7f59183
commit 6c412fb9f5
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Locations.hs
View file

@ -118,15 +118,19 @@ isLinkToAnnex s = ("/.git/" ++ objectDir) `isInfixOf` s
- a slash - a slash
- "%" is escaped to "&s", and "&" to "&a"; this ensures that the mapping - "%" is escaped to "&s", and "&" to "&a"; this ensures that the mapping
- is one to one. - is one to one.
- ":" is escaped to "&c", because despite it being 2011, people still care
- about FAT.
- -} - -}
keyFile :: Key -> FilePath keyFile :: Key -> FilePath
keyFile key = replace "/" "%" $ replace "%" "&s" $ replace "&" "&a" $ show key keyFile key = replace "/" "%" $ replace ":" "&c" $
replace "%" "&s" $ replace "&" "&a" $ show key
{- Reverses keyFile, converting a filename fragment (ie, the basename of {- Reverses keyFile, converting a filename fragment (ie, the basename of
- the symlink target) into a key. -} - the symlink target) into a key. -}
fileKey :: FilePath -> Maybe Key fileKey :: FilePath -> Maybe Key
fileKey file = readKey $ fileKey file = readKey $
replace "&a" "&" $ replace "&s" "%" $ replace "%" "/" file replace "&a" "&" $ replace "&s" "%" $
replace "&c" ":" $ replace "%" "/" file
{- for quickcheck -} {- for quickcheck -}
prop_idempotent_fileKey :: String -> Bool prop_idempotent_fileKey :: String -> Bool