X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Frename%2FRnTypes.lhs;h=88e3e2681a13b11c59a65c59df3cffc1b855e52f;hp=31382c20a36e0f1afd540242dbff2fb25915b031;hb=9241ac84d10f7e6b23841da2c0765275072ad7c1;hpb=f22c873e99d5b371a03d249febb89195a4fda2fc

diff --git a/compiler/rename/RnTypes.lhs b/compiler/rename/RnTypes.lhs
index 31382c2..88e3e26 100644
--- a/compiler/rename/RnTypes.lhs
+++ b/compiler/rename/RnTypes.lhs
@@ -168,6 +168,11 @@ rnHsType doc (HsModalBoxType ecn ty) = do
     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