From f4ddb580c83cba1c0e66fc5deb20bfc49ee4cf1b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 9 Jan 2011 10:04:16 -0400 Subject: bugfix: Fix crash caused by a symlink in the repo with link text ending in a "/". (Thanks Henrik for reporting.) --- Backend.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Backend.hs') diff --git a/Backend.hs b/Backend.hs index 8142e4707..7e88ff304 100644 --- a/Backend.hs +++ b/Backend.hs @@ -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) $ -- cgit v1.2.3