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

key conversion back from file bugfixes

Browse source
This commit is contained in:
Joey Hess 2010-10-13 03:41:12 -04:00
parent cc5cf0093e
commit 99b2029236
3 changed files with 21 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Backend.hs
View file

@ -69,5 +69,5 @@ lookupFile file = do
lookup = do
l <- readSymbolicLink file
return $ Just (k l, b l)
k l = Key $ takeFileName $ l
k l = fileKey $ takeFileName $ l
b l = lookupBackendName $ takeFileName $ parentDir $ l