blob: 08f130de33f27f2c43fabdec32bdca7f961ca32f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module HsUtils where
import GHC.Hs.Binds
import SrcLoc
-- | We have to be careful to normalise @SrcSpanLess (LHsBind)@ to
-- @LHsBindLR l r@ before passing the representative of @unLoc bind@ on to
-- @mkOneConFull@, otherwise this triggers a panic in @zipTvSubst@.
addPatSynSelector:: LHsBind p -> [a]
addPatSynSelector bind
| PatSynBind _ _ <- unLoc bind
= []
|
