[project @ 1997-09-24 09:08:21 by simonm]

[ghc-hetmet.git] / ghc / compiler / hsSyn / HsBinds.lhs

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index e39e494..c298d94 100644 (file)
--- a/ghc/compiler/hsSyn/HsBinds.lhs
+++ b/ghc/compiler/hsSyn/HsBinds.lhs
@@ -246,9 +246,6 @@ data Sig name
   | InlineSig  name              -- INLINE f
                SrcLoc
 
-  | DeforestSig name            -- Deforest using this function definition
-               SrcLoc
-
   | MagicUnfoldingSig
                name            -- Associate the "name"d function with
                FAST_STRING     -- the compiler-builtin unfolding (known
@@ -268,9 +265,6 @@ ppr_sig sty (ClassOpSig var _ ty _)
       = sep [ppr sty (getOccName var) <+> ptext SLIT("::"),
             nest 4 (ppr sty ty)]
 
-ppr_sig sty (DeforestSig var _)
-      = hsep [text "{-# DEFOREST", ppr sty var, text "#-}"]
-
 ppr_sig sty (SpecSig var ty using _)
       = sep [ hsep [text "{-# SPECIALIZE", ppr sty var, ptext SLIT("::")],
              nest 4 (hsep [ppr sty ty, pp_using using, text "#-}"])