path: root/testsuite/tests/pmcheck/should_compile/pmc009.hs

module HsUtils where
import GHC.Hs.Binds
import GHC.Types.SrcLoc

addPatSynSelector:: GenLocated l (HsBindLR idL idR) -> [a]
addPatSynSelector bind
  | PatSynBind _ _ <- unLoc bind
  = []