X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FGenerics.lhs;h=887c0d84a8d0cb5d8e3eed956535c53d2088dd50;hb=8fe6c1ec9074323150ba8c0a13a164d6c79a7892;hp=9be3138a6261d95d6dcc2fcc9254edaebf89df94;hpb=aea8d16135ed4ad5c21f7a8edcfcb7a760a4beac;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Generics.lhs b/ghc/compiler/types/Generics.lhs
index 9be3138..887c0d8 100644
--- 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