From: simonmar <unknown>
Date: Thu, 5 Oct 2000 11:18:52 +0000 (+0000)
Subject: [project @ 2000-10-05 11:18:52 by simonmar]
X-Git-Tag: Approximately_9120_patches~3691
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e9109f65b4bc493893108fbe8367c31a37a5886e;p=ghc-hetmet.git

[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
--- 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