key conversion back from file bugfixes
This commit is contained in:
parent
cc5cf0093e
commit
99b2029236
3 changed files with 21 additions and 18 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue