Commit 8e73f2c0 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Implement -XDeriveDataTypeable flag

parent 3c23b14c
......@@ -187,6 +187,7 @@ data DynFlag
| Opt_RecordPuns
| Opt_GADTs
| Opt_RelaxedPolyRec -- -X=RelaxedPolyRec
| Opt_DeriveDataTypeable
| Opt_TypeSynonymInstances
| Opt_FlexibleContexts
| Opt_FlexibleInstances
......@@ -1167,6 +1168,7 @@ xFlags = [
( "UnboxedTuples", Opt_UnboxedTuples ),
( "ExpressionSignaturesUnboxedTuples", Opt_ExpressionSignaturesUnboxedTuples ),
( "TypeSynonymUnboxedTuples", Opt_TypeSynonymUnboxedTuples ),
( "DeriveDataTypeable", Opt_DeriveDataTypeable ),
( "TypeSynonymInstances", Opt_TypeSynonymInstances ),
( "FlexibleContexts", Opt_FlexibleContexts ),
( "FlexibleInstances", Opt_FlexibleInstances ),
......@@ -1195,6 +1197,7 @@ glasgowExtsFlags = [ Opt_GlasgowExts
, Opt_ExpressionSignaturesUnboxedTuples
, Opt_TypeSynonymUnboxedTuples
, Opt_TypeSynonymInstances
, Opt_DeriveDataTypeable
, Opt_FlexibleContexts
, Opt_FlexibleInstances
, Opt_ConstrainedClassMethods
......
......@@ -409,7 +409,7 @@ mkEqnHelp orig tvs cls cls_tys tc_app
; (rep_tc, rep_tc_args) <- tcLookupFamInstExact tycon full_tc_args
; mayDeriveDataTypeable <- doptM Opt_GlasgowExts
; mayDeriveDataTypeable <- doptM Opt_DeriveDataTypeable
; newtype_deriving <- doptM Opt_GeneralizedNewtypeDeriving
; overlap_flag <- getOverlapFlag
......
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