From becac4874c8eab1e044e8dfb7ed1388f90db1201 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 22 Jun 1999 16:32:42 +0000
Subject: [PATCH] [project @ 1999-06-22 16:32:42 by simonpj] Add
 HsBinds.isPragSig

---
 ghc/compiler/hsSyn/HsBinds.lhs |    8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ghc/compiler/hsSyn/HsBinds.lhs b/ghc/compiler/hsSyn/HsBinds.lhs
index 375fe31..da37e20 100644
--- 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}
-- 
1.7.10.4