[project @ 2000-10-24 07:35:00 by simonpj]

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

diff --git a/ghc/compiler/hsSyn/HsPragmas.lhs b/ghc/compiler/hsSyn/HsPragmas.lhs
index 013129d..0cf86ea 100644 (file)
--- a/ghc/compiler/hsSyn/HsPragmas.lhs
+++ b/ghc/compiler/hsSyn/HsPragmas.lhs
@@ -8,51 +8,16 @@
 %************************************************************************
 
 See also: @Sig@ (``signatures'') which is where user-supplied pragmas
-for values show up; ditto @SpecInstSig@ (for instances) and
-@SpecDataSig@ (for data types).
+for values show up; ditto @SpecInstSig@ (for instances)
 
 \begin{code}
 module HsPragmas where
 
 #include "HsVersions.h"
 
-import IdInfo
 import Outputable
 \end{code}
 
 All the pragma stuff has changed.  Here are some placeholders!
 
-\begin{code}
-data GenPragmas name  = NoGenPragmas
-data DataPragmas name = NoDataPragmas
-data InstancePragmas name = NoInstancePragmas
-data ClassOpPragmas name  = NoClassOpPragmas
-data ClassPragmas name  = NoClassPragmas
-
-noClassPragmas = NoClassPragmas
-isNoClassPragmas NoClassPragmas = True
-
-noDataPragmas = NoDataPragmas
-isNoDataPragmas NoDataPragmas = True
-
-noGenPragmas = NoGenPragmas
-isNoGenPragmas NoGenPragmas = True
-
-noInstancePragmas = NoInstancePragmas
-isNoInstancePragmas NoInstancePragmas = True
 
-noClassOpPragmas = NoClassOpPragmas
-isNoClassOpPragmas NoClassOpPragmas = True
-
-instance Outputable name => Outputable (ClassPragmas name) where
-    ppr NoClassPragmas = empty
-
-instance Outputable name => Outputable (ClassOpPragmas name) where
-    ppr NoClassOpPragmas = empty
-
-instance Outputable name => Outputable (InstancePragmas name) where
-    ppr NoInstancePragmas = empty
-
-instance Outputable name => Outputable (GenPragmas name) where
-    ppr NoGenPragmas = empty
-\end{code}