diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-13 02:31:24 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-13 02:31:24 -0400 |
| commit | d1071bd1fe879abb3ebb229f9347f7855a697b8c (patch) | |
| tree | db9df662b58f2b0762252f4d22b5cb244c8be978 /Locations.hs | |
| parent | 490a3a828cbb5a4046178b36fc0f9fe0696d0e9d (diff) | |
autobugfixing!
Converted Key to a real data type and caught all the places where I used
an unconverted filename as a key.
Had to loose some sanity checks around whether something is already
annexed, but I guess I can add those back other ways.
Diffstat (limited to 'Locations.hs')
| -rw-r--r-- | Locations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Locations.hs b/Locations.hs index 72f4c451f..a99ad6ec4 100644 --- a/Locations.hs +++ b/Locations.hs @@ -30,7 +30,7 @@ gitStateDir repo = (gitWorkTree repo) ++ "/" ++ stateLoc ++ "/" - is one to one. - -} keyFile :: Key -> FilePath -keyFile key = replace "/" "%" $ replace "%" "%s" $ replace "&" "&a" key +keyFile key = replace "/" "%" $ replace "%" "%s" $ replace "&" "&a" $ show key {- An annexed file's content is stored in - .git/annex/<backend>/<key> ; this allows deriving the key and backend |