shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Sadly, don't rnf before saving the cache.

Doing so causes chaos, because rnf does not stop properly
with unevaluated thunks.

--- a/src/MicroHs/Compile.hs

+++ b/src/MicroHs/Compile.hs

@@ -79,7 +79,9 @@

   when (writeCache flags) $ do

     when (verbosityGT flags 0) $

       putStrLn $ "Saving cache " ++ show mhsCacheName

-    () <- seq (rnfNoErr cash) (return ())

+    -- This causes all kinds of chaos, probably because there

+    -- will be equality tests of unevaluated thunks.

+    -- () <- seq (rnfNoErr cash) (return ())

     saveCache mhsCacheName cash

 compile :: Flags -> IdentModule -> Cache -> IO ((IdentModule, [LDef]), Symbols, Cache)

-- 

⑨