ty' <- rnLHsType doc ty
return (HsModalBoxType ecn' ty')
+rnHsType doc (HsKappaTy ty1 ty2) = do
+ ty1' <- rnLHsType doc ty1
+ ty2' <- rnLHsType doc ty2
+ return $ HsKappaTy ty1' ty2'
+
-- Unboxed tuples are allowed to have poly-typed arguments. These
-- sometimes crop up as a result of CPR worker-wrappering dictionaries.
rnHsType doc (HsTupleTy tup_con tys) = do