diff options
author | Joey Hess <joey@kitenet.net> | 2011-01-09 10:04:16 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-01-09 10:04:16 -0400 |
commit | f4ddb580c83cba1c0e66fc5deb20bfc49ee4cf1b (patch) | |
tree | 07181a244b4bde0f571db95c82d5ac823eb3905a /Backend.hs | |
parent | 51327c242f7087587884903632505552917b844a (diff) |
bugfix: Fix crash caused by a symlink in the repo with link text ending in a "/". (Thanks Henrik for reporting.)
Diffstat (limited to 'Backend.hs')
-rw-r--r-- | Backend.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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) $ |