summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2010-10-13 23:31:08 -0400
committerGravatar Joey Hess <joey@kitenet.net>2010-10-13 23:31:08 -0400
commite47dca162a0ca0144172c9a61a47d1e0b5ad04b7 (patch)
treeebf9308192fa799235adaf8b8b4aa0d09c295fd0
parent8ab54401b609f49a603f3ed69bb8493a53f28db8 (diff)
update
-rw-r--r--Locations.hs3
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