@@ -297,6 +297,7 @@ toModule mids mid top
297297
298298-- | Eliminate unused code based on the specified entry point set.
299299compile :: [Module] -> [ModuleIdentifier] -> [Module]
300+compile modules [] = modules
300301compile modules entryPoints = filteredModules
301302 where
302303 (graph, _, vertexFor) = graphFromEdges verts
@@ -562,7 +563,7 @@ app opts@Options{..} = do
562563options :: Parser Options
563564options = Options <$> some inputFile
564565 <*> optional outputFile
565− <*> some entryPoint
566+ <*> many entryPoint
566567 <*> optional mainModule
567568 <*> namespace
568569 where