module Language.Haskell.Tools.AST.Match.Names where
import Language.Haskell.Tools.AST
import Language.Haskell.Tools.AST.ElementTypes
pattern NormalOp :: QualifiedName dom -> Operator dom
pattern NormalOp n <- Ann _ (UNormalOp n)
pattern BacktickOp :: QualifiedName dom -> Operator dom
pattern BacktickOp n <- Ann _ (UBacktickOp n)
pattern NormalName :: QualifiedName dom -> Name dom
pattern NormalName n <- Ann _ (UNormalName n)
pattern ParenName :: QualifiedName dom -> Name dom
pattern ParenName n <- Ann _ (UParenName n)
pattern ImplicitName :: QualifiedName dom -> Name dom
pattern ImplicitName n <- Ann _ (UImplicitName n)
pattern StringNode :: String -> StringNode dom
pattern StringNode s <- Ann _ (UStringNode s )
pattern QualifiedName :: NamePartList dom -> NamePart dom -> QualifiedName dom
pattern QualifiedName quals unqual <- Ann _ (UQualifiedName quals unqual)
pattern NamePart :: String -> NamePart dom
pattern NamePart str <- Ann _ (UNamePart str)