Add comments.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 26 Feb 2016 12:09:40 +0000 (12:09 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 26 Feb 2016 12:09:40 +0000 (12:09 +0000)
See #210.

src/Oracles/ModuleFiles.hs

index 508b554..5cb7a5b 100644 (file)
@@ -101,6 +101,8 @@ moduleFilesOracle = void $ do
                 ++ f1 ++ " and " ++ f2 ++ "."
         return $ lookupAll modules pairs
 
+    -- Optimisation: we discard .(l)hs files here, because they are never used
+    -- as generators, and hence would be discarded in 'findGenerator' anyway.
     gens <- newCache $ \context -> do
         files <- contextFiles context
         return $ Map.fromList [ (generatedFile context modName, src)