1 2 3 4 5 6 7 8
module HsUtils where import GHC.Hs.Binds import SrcLoc addPatSynSelector:: LHsBind p -> [a] addPatSynSelector bind | PatSynBind _ _ <- unLoc bind = []