Fix module leaks

mpickering · Jun 17, 2019 · c3bdae0 · c3bdae0
1 parent 3a16e04
commit c3bdae0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/hie-plugin-api/Haskell/Ide/Engine/ModuleCache.hs b/hie-plugin-api/Haskell/Ide/Engine/ModuleCache.hs
@@ -61,7 +61,8 @@ import System.IO
 modifyCache :: (HasGhcModuleCache m) => (GhcModuleCache -> GhcModuleCache) -> m ()
 modifyCache f = do
   mc <- getModuleCache
-  setModuleCache (f mc)
+  let x = (f mc)
+  x `seq` setModuleCache x
 
 -- ---------------------------------------------------------------------
 -- | Runs an action in a ghc-mod Cradle found from the