add comment

mgmeier · mgmeier · commit 2cf5ec044ee7 · 2015-11-26T00:44:21.000+01:00
diff --git a/psc-bundle/Main.hs b/psc-bundle/Main.hs
@@ -70,7 +70,7 @@ app Options{..} = do
   input <- for inputFiles $ \filename -> do
     js <- liftIO (readFile filename)
     mid <- guessModuleIdentifier filename
-    length js `seq` return (mid, js)
+    length js `seq` return (mid, js)                                            -- evaluate readFile till EOF before returning, not to exhaust file handles
 
   let entryIds = map (`ModuleIdentifier` Regular) optionsEntryPoints
 
