Skip to content
This repository was archived by the owner on Aug 3, 2024. It is now read-only.

Commit 4d0498d

Browse files
committed
Adapt to splitPiTysInvisible being renamed to splitInvisPiTys
This is a part of !4434, a fix for GHC#18939.
1 parent ad9cbad commit 4d0498d

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

haddock-api/src/Haddock/Convert.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -230,7 +230,7 @@ synifyTyCon prr _coax tc
230230
| otherwise = noLoc $ KindedTyVar noExtField () (noLoc (getName fakeTyVar)) (synifyKindSig realKind)
231231

232232
conKind = defaultType prr (tyConKind tc)
233-
tyVarKinds = fst . splitFunTys . snd . splitPiTysInvisible $ conKind
233+
tyVarKinds = fst . splitFunTys . snd . splitInvisPiTys $ conKind
234234

235235
synifyTyCon _prr _coax tc
236236
| Just flav <- famTyConFlav_maybe tc

0 commit comments

Comments
 (0)