key conversion back from file bugfixes

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

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