X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Ftypecheck%2FTcRnDriver.lhs;h=98279c42c06753b5abb3bec6662df532b964cc55;hp=cc7d63dbf6450dc900d205cc63c8f25051f424fc;hb=bd0bd647062bad646dd8b2d0f85cce67c2079907;hpb=1ef81a94d77cffce1b0a592b25d7f4a9aa8ea1d3

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index cc7d63d..98279c4 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -1266,7 +1266,7 @@ tcRnType hsc_env ictxt rdr_type
     failIfErrsM ;
 
 	-- Now kind-check the type
-    (ty', kind) <- kcHsType rn_type ;
+    (ty', kind) <- kcLHsType rn_type ;
     return kind
     }
   where