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 375fe31ef69e..da37e201557e 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}
--
GitLab