@@ -297,6 +297,7 @@ toModule mids mid top
298-- | Eliminate unused code based on the specified entry point set.
298-- | Eliminate unused code based on the specified entry point set.
299compile :: [Module] -> [ModuleIdentifier] -> [Module]
299compile :: [Module] -> [ModuleIdentifier] -> [Module]
300+compile modules [] = modules
300compile modules entryPoints = filteredModules
301compile modules entryPoints = filteredModules
302 (graph, _, vertexFor) = graphFromEdges verts
303 (graph, _, vertexFor) = graphFromEdges verts
@@ -562,7 +563,7 @@ app opts@Options{..} = do
562options :: Parser Options
563options :: Parser Options
563options = Options <$> some inputFile
564options = Options <$> some inputFile
564 <*> optional outputFile
565 <*> optional outputFile
565− <*> some entryPoint
566+ <*> many entryPoint
566 <*> optional mainModule
567 <*> optional mainModule
567 <*> namespace
568 <*> namespace