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