[project @ 1999-01-28 09:19:57 by simonpj]

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

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index c73df67..e16a754 100644 (file)
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -11,7 +11,6 @@ module IdInfo (
        IdInfo,         -- Abstract
 
        noIdInfo,
-       ppIdInfo,
 
        -- Arity
        ArityInfo(..),
@@ -110,24 +109,6 @@ noIdInfo = IdInfo {
           }
 \end{code}
 
-\begin{code}
-ppIdInfo :: IdInfo -> SDoc
-ppIdInfo (IdInfo {arityInfo      = a,
-                 demandInfo     = d,
-                 strictnessInfo = s,
-                 updateInfo     = u,
-                 cafInfo        = c
-                 }) 
-  = hsep [
-           ppArityInfo a,
-           ppUpdateInfo u,
-           ppStrictnessInfo s,
-           ppr d,
-           ppCafInfo c
-       -- Inline pragma printed out with all binders; see PprCore.pprIdBndr
-       ]
-\end{code}
-
 %************************************************************************
 %*                                                                     *
 \subsection[arity-IdInfo]{Arity info about an @Id@}
@@ -280,7 +261,6 @@ might have a specialisation
 where pi' :: Lift Int# is the specialised version of pi.
 
 
-
 %************************************************************************
 %*                                                                     *
 \subsection[strictness-IdInfo]{Strictness info about an @Id@}