@@ -63,11 +63,11 @@ fetch f = runMaybeT . fetchers where
6363
6464 fetchLocal :: Source -> MaybeT IO (DerivationSource, a)
6565 fetchLocal src = do
66− let path = stripPrefix "file://" $ sourceUrl src
66+ let path = stripSlashSuffix $ stripPrefix "file://" $ sourceUrl src
6767 existsFile <- liftIO $ doesFileExist path
6868 existsDir <- liftIO $ doesDirectoryExist path
6969 guard $ existsDir || existsFile
70− let path' | '/' `elem` path = stripSlashSuffix path
70+ let path' | '/' `elem` path = path
7171 | otherwise = "./" ++ path
7272 process (DerivationSource "" path' "" "", path') <|> localArchive path'
7373