Drop redundant newCache.
authorAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 19 Feb 2016 00:30:00 +0000 (00:30 +0000)
committerAndrey Mokhov <andrey.mokhov@gmail.com>
Fri, 19 Feb 2016 00:30:00 +0000 (00:30 +0000)
See #210.

src/Oracles/ModuleFiles.hs

index 391990e..d8b1ae7 100644 (file)
@@ -38,8 +38,8 @@ haskellModuleFiles stage pkg = do
     return (haskellFiles, missingMods ++ map otherFileToMod otherFiles)
 
 moduleFilesOracle :: Rules ()
-moduleFilesOracle = do
-    answer <- newCache $ \(modules, dirs) -> do
+moduleFilesOracle = void $
+    addOracle $ \(ModuleFilesKey (modules, dirs)) -> do
         let decodedPairs = map decodeModule modules
             modDirFiles  = map (bimap head sort . unzip)
                          . groupBy ((==) `on` fst) $ decodedPairs
@@ -55,6 +55,3 @@ moduleFilesOracle = do
                 return (map (fullDir -/-) found, mDir)
 
         return $ sort [ (encodeModule d f, f) | (fs, d) <- result, f <- fs ]
-
-    _ <- addOracle $ \(ModuleFilesKey query) -> answer query
-    return ()