diff options
| author | Jan Stolarek <jan.stolarek@p.lodz.pl> | 2015-11-11 11:34:48 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-11-11 11:38:40 +0100 |
| commit | ea8c116ac9eb916fdb6360a01c285bc8698dfaf9 (patch) | |
| tree | 5ea15e38f5977b2096606087a1b1655e19012968 /compiler/parser | |
| parent | fbc2537c0b2cbe947684bb39669643f1ef9d96c0 (diff) | |
| download | haskell-ea8c116ac9eb916fdb6360a01c285bc8698dfaf9.tar.gz | |
Remove unused field in ConDecl
We no longer parse old-style GADT syntax but there was some left-over
code for emitting deprecation warnings.
Updates haddock submodule.
Test Plan: ./validate
Reviewers: austin, bgamari
Reviewed By: bgamari
Subscribers: thomie
Differential Revision: https://phabricator.haskell.org/D1460
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/RdrHsSyn.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/compiler/parser/RdrHsSyn.hs b/compiler/parser/RdrHsSyn.hs index b24ba0968a..5aa91ec296 100644 --- a/compiler/parser/RdrHsSyn.hs +++ b/compiler/parser/RdrHsSyn.hs @@ -487,8 +487,7 @@ mkSimpleConDecl :: Located RdrName -> [LHsTyVarBndr RdrName] -> ConDecl RdrName mkSimpleConDecl name qvars cxt details - = ConDecl { con_old_rec = False - , con_names = [name] + = ConDecl { con_names = [name] , con_explicit = Explicit , con_qvars = mkHsQTvs qvars , con_cxt = cxt @@ -523,8 +522,7 @@ mkGadtDecl' names (L ls (HsForAllTy imp _ qvars cxt tau)) _other -> (PrefixCon [], tau) mk_gadt_con names - = ConDecl { con_old_rec = False - , con_names = names + = ConDecl { con_names = names , con_explicit = imp , con_qvars = qvars , con_cxt = cxt |