[project @ 2000-10-04 16:47:39 by simonmar]

[ghc-hetmet.git] / ghc / compiler / types / Generics.lhs

diff --git a/ghc/compiler/types/Generics.lhs b/ghc/compiler/types/Generics.lhs
index 9be3138..887c0d8 100644 (file)
--- a/ghc/compiler/types/Generics.lhs
+++ b/ghc/compiler/types/Generics.lhs
@@ -231,7 +231,7 @@ mkTyConGenInfo :: TyCon -> Name -> Name -> Maybe (EP Id)
 -- for the fromT and toT conversion functions.
 
 mkTyConGenInfo tycon from_name to_name
-  | not opt_GlasgowExts
+  | True -- not opt_GlasgowExts
   = Nothing
 
   | null datacons      -- Abstractly imported types don't have