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