bugfix: Fix crash caused by a symlink in the repo with link text ending in a "/". (Thanks Henrik for reporting.)
This commit is contained in:
parent
51327c242f
commit
f4ddb580c8
3 changed files with 8 additions and 3 deletions
|
@ -130,7 +130,8 @@ lookupFile file = do
|
|||
getsymlink = do
|
||||
l <- readSymbolicLink file
|
||||
return $ takeFileName l
|
||||
makekey bs l =
|
||||
makekey _ [] = return Nothing
|
||||
makekey bs l = do
|
||||
case maybeLookupBackendName bs bname of
|
||||
Nothing -> do
|
||||
unless (null kname || null bname) $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue