diff --git a/src/Semantic/IO.hs b/src/Semantic/IO.hs index ae3f74ff9..ead2b373b 100644 --- a/src/Semantic/IO.hs +++ b/src/Semantic/IO.hs @@ -89,7 +89,7 @@ readBlobsFromPaths files = catMaybes <$> traverse readFile files readProjectFromPaths :: MonadIO m => Maybe FilePath -> NonEmpty File -> m Project readProjectFromPaths root files = do - paths <- liftIO $ filter (/= entryPointPath) <$> fmap fold (globDir (compile . mappend "**/*." <$> exts) rootDir) + paths <- liftIO $ filter (/= entryPointPath) <$> fmap fold (globDir (compile . mappend "[^vendor]**/*." <$> exts) rootDir) pure $ Project files rootDir (toFile <$> paths) where toFile path = File path (languageForFilePath path)