[project @ 1999-08-23 15:54:12 by simonmar]

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

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index 375fe31..da37e20 100644 (file)
--- a/ghc/compiler/hsSyn/HsBinds.lhs
+++ b/ghc/compiler/hsSyn/HsBinds.lhs
@@ -262,6 +262,14 @@ isFixitySig _             = False
 isClassOpSig :: Sig name -> Bool
 isClassOpSig (ClassOpSig _ _ _ _) = True
 isClassOpSig _                   = False
+
+isPragSig :: Sig name -> Bool
+       -- Identifies pragmas 
+isPragSig (SpecSig _ _ _)   = True
+isPragSig (InlineSig   _ _) = True
+isPragSig (NoInlineSig _ _) = True
+isPragSig (SpecInstSig _ _) = True
+isPragSig other                    = False
 \end{code}
 
 \begin{code}