Commit e9109f65 authored by simonmar's avatar simonmar
Browse files

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

test -fgenerics before generating the generic datatype.
parent 33a6d462
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment