diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index 08e68606250f76f84bb004b1e4291c737a087fc3..79f7b83f94360c7b67e5885091b023c3461e058d 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -831,8 +831,7 @@ rnTySig (tydecl@TyData {tcdCtxt = context, tcdLName = tycon, ASSERT( isNothing mb_typats ) -- won't have type patterns ASSERT( isNothing derivs ) -- won't have deriving ASSERT( isJust sig ) -- will have kind signature - do { checkM (not . null $ tyvars) $ addErr needOneIdx -- #indexes >= 1 - ; bindIdxVars (ksig_doc tycon) tyvars $ \tyvars' -> do { + do { bindIdxVars (ksig_doc tycon) tyvars $ \tyvars' -> do { ; tycon' <- lookupLocatedTopBndrRn tycon ; context' <- rnContext (ksig_doc tycon) context ; returnM (TyData {tcdND = tcdND tydecl, tcdCtxt = context',