Commit becac487 authored by simonpj's avatar simonpj
Browse files

[project @ 1999-06-22 16:32:42 by simonpj]

Add HsBinds.isPragSig
parent b3e36b5b
......@@ -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}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment