Add comments, plus fix zapFragileInfo to zap worker info

[ghc-hetmet.git] / compiler / basicTypes / IdInfo.lhs

diff --git a/compiler/basicTypes/IdInfo.lhs b/compiler/basicTypes/IdInfo.lhs
index 9b39ccb..3261adf 100644 (file)
--- a/compiler/basicTypes/IdInfo.lhs
+++ b/compiler/basicTypes/IdInfo.lhs
@@ -702,7 +702,9 @@ zapDemandInfo info@(IdInfo {newDemandInfo = dmd})
 
 \begin{code}
 zapFragileInfo :: IdInfo -> Maybe IdInfo
+-- Zap info that depends on free variables
 zapFragileInfo info = Just (info `setSpecInfo` emptySpecInfo
+                                `setWorkerInfo` NoWorker
                                  `setUnfoldingInfo` NoUnfolding)
 \end{code}