diff --git a/src/Semantic/IO.hs b/src/Semantic/IO.hs
index 2b8420f8f..aca6ca72d 100644
--- a/src/Semantic/IO.hs
+++ b/src/Semantic/IO.hs
@@ -111,7 +111,7 @@ readProjectFromPaths maybeRoot path lang excludeDirs = do
 
 
   paths <- liftIO $ filterFun <$> findFilesInDir rootDir exts excludeDirs
-  blobs <- traverse readBlobFromPath (toFile <$> paths)
+  blobs <- traverse readBlobFromPath (entryPoints <> (toFile <$> paths))
   let p = Project.Project rootDir blobs lang (filePath <$> entryPoints) excludeDirs
   liftIO $ putStrLn "Done"
   pure p