diff options
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) $ |