Regression in 9.4.1 (alpha2): unused-top-binds reported for used functions (RecursiveDo)
GHC 9.4.0.20220523 wrongly reports _Defined but not used_ for functions that are actually used:
```
$ cabal install regex-tdfa --allow-newer=regex-tdfa:base
[15 of 25] Compiling Text.Regex.TDFA.CorePattern ( lib/Text/Regex/TDFA/CorePattern.hs, ... )
lib/Text/Regex/TDFA/CorePattern.hs:200:1: error: [-Wunused-top-binds, -Werror=unused-top-binds]
Defined but not used: ‘mergeNullViews’
|
200 | mergeNullViews s1 s2 = cleanNullView $ do
| ^^^^^^^^^^^^^^
lib/Text/Regex/TDFA/CorePattern.hs:208:1: error: [-Wunused-top-binds, -Werror=unused-top-binds]
Defined but not used: ‘seqTake’
|
208 | seqTake (x1,y1) (x2,y2) = (x1+x2,liftM2 (+) y1 y2)
| ^^^^^^^
```
(Deleting one of these results in a not-in-scope error.)
issue