diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-13 23:31:08 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-13 23:31:08 -0400 |
| commit | e47dca162a0ca0144172c9a61a47d1e0b5ad04b7 (patch) | |
| tree | ebf9308192fa799235adaf8b8b4aa0d09c295fd0 /Locations.hs | |
| parent | 8ab54401b609f49a603f3ed69bb8493a53f28db8 (diff) | |
update
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Locations.hs b/Locations.hs index d6d7d4248..68a958192 100644 --- a/Locations.hs +++ b/Locations.hs @@ -47,6 +47,7 @@ annexLocationRelative r backend key = keyFile :: Key -> FilePath keyFile key = replace "/" "%" $ replace "%" "&s" $ replace "&" "&a" $ show key -{- Reverses keyFile -} +{- Reverses keyFile, converting a filename fragment (ie, the basename of + - the symlink target) into a key. -} fileKey :: FilePath -> Key fileKey file = Key $ replace "&a" "&" $ replace "&s" "%" $ replace "%" "/" file |