[project @ 2004-03-21 19:06:01 by ralf]

[ghc-hetmet.git] / ghc / compiler / typecheck / TcGenDeriv.lhs

diff --git a/ghc/compiler/typecheck/TcGenDeriv.lhs b/ghc/compiler/typecheck/TcGenDeriv.lhs
index 9796387..b9b9ae1 100644 (file)
--- a/ghc/compiler/typecheck/TcGenDeriv.lhs
+++ b/ghc/compiler/typecheck/TcGenDeriv.lhs
@@ -994,7 +994,7 @@ From the data type
 we generate
 
        instance Typeable2 T where
-               typeOf2 _ = mkAppTy (mkTyConRep "T") []
+               typeOf2 _ = mkTyConApp (mkTyConRep "T") []
 
 We are passed the Typeable2 class as well as T