X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftypes%2FGenerics.lhs;h=6c48a1fb270e8f5307853157336c75b7ad707489;hb=da162afcfc9db8335834bb279217c4707fb67988;hp=10f9eedc55b38130a14a361806bfaabe656757a0;hpb=12467fbf505554bb20d0a3502dc162d605373da5;p=ghc-hetmet.git

diff --git a/ghc/compiler/types/Generics.lhs b/ghc/compiler/types/Generics.lhs
index 10f9eed..6c48a1f 100644
--- a/ghc/compiler/types/Generics.lhs
+++ b/ghc/compiler/types/Generics.lhs
@@ -231,7 +231,7 @@ mkTyConGenInfo :: DynFlags -> TyCon -> Name -> Name -> Maybe (EP Id)
 -- for the fromT and toT conversion functions.
 
 mkTyConGenInfo dflags tycon from_name to_name
-  | dopt Opt_Generics dflags
+  | not (dopt Opt_Generics dflags)
   = Nothing
 
   | null datacons 	-- Abstractly imported types don't have