[project @ 1999-05-18 15:03:54 by simonpj]

[ghc-hetmet.git] / ghc / compiler / stranal / SaAbsInt.lhs

diff --git a/ghc/compiler/stranal/SaAbsInt.lhs b/ghc/compiler/stranal/SaAbsInt.lhs
index 62c26ee..37e9248 100644 (file)
--- a/ghc/compiler/stranal/SaAbsInt.lhs
+++ b/ghc/compiler/stranal/SaAbsInt.lhs
@@ -381,7 +381,7 @@ absId anal var env
 
 
        (Nothing, strictness_info, _) ->
-                       -- Includes MagicUnfolding, NoUnfolding
+                       -- Includes NoUnfolding
                        -- Try the strictness info
                        absValFromStrictness anal strictness_info
 \end{code}