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

Commit fd56ac4

Browse files
RyanGlScottharpocrates
authored andcommitted
Fix #1004 with a pinch of dropForAlls
1 parent 53997f3 commit fd56ac4

File tree

3 files changed

+2076
-1
lines changed

3 files changed

+2076
-1
lines changed

haddock-api/src/Haddock/Convert.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -274,7 +274,7 @@ synifyTyCon coax tc
274274
-- which this function obtains.
275275
synifyDataTyConReturnKind :: TyCon -> Maybe (LHsKind GhcRn)
276276
synifyDataTyConReturnKind tc
277-
= case splitFunTys (tyConKind tc) of
277+
= case splitFunTys (dropForAlls (tyConKind tc)) of
278278
(_, ret_kind)
279279
| isLiftedTypeKind ret_kind -> Nothing -- Don't bother displaying :: *
280280
| otherwise -> Just (synifyKindSig ret_kind)

0 commit comments

Comments
 (0)