[project @ 1996-07-15 16:16:46 by partain]

[ghc-hetmet.git] / ghc / compiler / coreSyn / PprCore.lhs

diff --git a/ghc/compiler/coreSyn/PprCore.lhs b/ghc/compiler/coreSyn/PprCore.lhs
index fba4be2..e9bb179 100644 (file)
--- a/ghc/compiler/coreSyn/PprCore.lhs
+++ b/ghc/compiler/coreSyn/PprCore.lhs
@@ -31,6 +31,7 @@ import Id             ( idType, getIdInfo, getIdStrictness, isTupleCon,
                          nullIdEnv, SYN_IE(DataCon), GenId{-instances-}
                        )
 import IdInfo          ( ppIdInfo, StrictnessInfo(..) )
+import IdLoop          ( Unfolding )   -- Needed by IdInfo.hi?
 import Literal         ( Literal{-instances-} )
 import Name            ( isSymLexeme )
 import Outputable      -- quite a few things
@@ -387,7 +388,7 @@ pprBigCoreBinder sty binder
 
     pragmas =
        ifnotPprForUser sty
-        (ppIdInfo sty binder True{-specs, please-} id nullIdEnv
+        (ppIdInfo sty binder False{-no specs, thanks-} id nullIdEnv
          (getIdInfo binder))
 
 pprBabyCoreBinder sty binder