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