@@ -63,11 +63,11 @@ fetch f = runMaybeT . fetchers where
64 fetchLocal :: Source -> MaybeT IO (DerivationSource, a)
64 fetchLocal :: Source -> MaybeT IO (DerivationSource, a)
65 fetchLocal src = do
65 fetchLocal src = do
66− let path = stripPrefix "file://" $ sourceUrl src
66+ let path = stripSlashSuffix $ stripPrefix "file://" $ sourceUrl src
67 existsFile <- liftIO $ doesFileExist path
67 existsFile <- liftIO $ doesFileExist path
68 existsDir <- liftIO $ doesDirectoryExist path
68 existsDir <- liftIO $ doesDirectoryExist path
69 guard $ existsDir || existsFile
69 guard $ existsDir || existsFile
70− let path' | '/' `elem` path = stripSlashSuffix path
70+ let path' | '/' `elem` path = path
71 | otherwise = "./" ++ path
71 | otherwise = "./" ++ path
72 process (DerivationSource "" path' "" "", path') <|> localArchive path'
72 process (DerivationSource "" path' "" "", path') <|> localArchive path'