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:
Joey Hess 2011-01-09 10:04:16 -04:00
parent 51327c242f
commit f4ddb580c8
3 changed files with 8 additions and 3 deletions

View file

@ -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) $