From e9109f65b4bc493893108fbe8367c31a37a5886e Mon Sep 17 00:00:00 2001 From: simonmar Date: Thu, 5 Oct 2000 11:18:52 +0000 Subject: [PATCH 1/1] [project @ 2000-10-05 11:18:52 by simonmar] test -fgenerics before generating the generic datatype. --- ghc/compiler/types/Generics.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4