Merge pull request #1305 from haskell/fix-leak-mpickering

Fix a memory leak found by mpickering
haskell · Jun 21, 2019 · e2f8e32 · e2f8e32
2 parents 70fb79e + b7fb445
commit e2f8e32
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/hie-plugin-api/Haskell/Ide/Engine/PluginsIdeMonads.hs b/hie-plugin-api/Haskell/Ide/Engine/PluginsIdeMonads.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE BangPatterns #-}
 {-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveFunctor #-}
 {-# LANGUAGE DeriveAnyClass #-}
@@ -499,7 +500,7 @@ instance HasGhcModuleCache IdeM where
     tvar <- lift ask
     state <- liftIO $ readTVarIO tvar
     return (moduleCache state)
-  setModuleCache mc = do
+  setModuleCache !mc = do
     tvar <- lift ask
     liftIO $ atomically $ modifyTVar' tvar (\st -> st { moduleCache = mc })