@@ -70,7 +70,7 @@ app Options{..} = do
7070 input <- for inputFiles $ \filename -> do
7171 js <- liftIO (readFile filename)
7272 mid <- guessModuleIdentifier filename
73− length js `seq` return (mid, js)
73+ length js `seq` return (mid, js) -- evaluate readFile till EOF before returning, not to exhaust file handles
7474
7575 let entryIds = map (`ModuleIdentifier` Regular) optionsEntryPoints
7676