[project @ 2000-10-05 11:18:52 by simonmar]

test -fgenerics before generating the generic datatype.

diff --git a/ghc/compiler/types/Generics.lhs b/ghc/compiler/types/Generics.lhs
index 887c0d8..0a0ec46 100644 (file)
--- a/ghc/compiler/types/Generics.lhs
+++ b/ghc/compiler/types/Generics.lhs
@@ -4,7 +4,7 @@ module Generics ( mkTyConGenInfo, mkGenericRhs,
     ) where
 
 
-import CmdLineOpts     ( opt_GlasgowExts )
+import CmdLineOpts     ( opt_Generics )
 import RnHsSyn         ( RenamedHsExpr )
 import HsSyn           ( HsExpr(..), InPat(..), mkSimpleMatch )
 
@@ -231,7 +231,7 @@ mkTyConGenInfo :: TyCon -> Name -> Name -> Maybe (EP Id)
 -- for the fromT and toT conversion functions.
 
 mkTyConGenInfo tycon from_name to_name
-  | True -- not opt_GlasgowExts
+  | not opt_Generics
   = Nothing
 
   | null datacons      -- Abstractly imported types don't have