@@ -326,10 +326,15 @@ buildMakeActions outputDir filePathMap foreigns usePrefix =
327 getOutputTimestamp :: ModuleName -> Make (Maybe UTCTime)
327 getOutputTimestamp :: ModuleName -> Make (Maybe UTCTime)
328 getOutputTimestamp mn = do
328 getOutputTimestamp mn = do
329+ dumpCoreFn <- asks optionsDumpCoreFn
329 let filePath = T.unpack (runModuleName mn)
330 let filePath = T.unpack (runModuleName mn)
330 jsFile = outputDir </> filePath </> "index.js"
331 jsFile = outputDir </> filePath </> "index.js"
331 externsFile = outputDir </> filePath </> "externs.json"
332 externsFile = outputDir </> filePath </> "externs.json"
333+ coreFnFile = outputDir </> filePath </> "corefn.json"
335+ | dumpCoreFn = min (min js exts) coreFn
336+ | otherwise = min js exts
332− min <$> getTimestamp jsFile <*> getTimestamp externsFile
337+ min3 <$> getTimestamp jsFile <*> getTimestamp externsFile <*> getTimestamp coreFnFile
334 readExterns :: ModuleName -> Make (FilePath, Externs)
339 readExterns :: ModuleName -> Make (FilePath, Externs)
335 readExterns mn = do
340 readExterns mn = do