diff options
| author | Ryan Scott <ryan.gl.scott@gmail.com> | 2017-10-07 17:59:07 -0400 |
|---|---|---|
| committer | Ryan Scott <ryan.gl.scott@gmail.com> | 2017-10-07 17:59:11 -0400 |
| commit | f337a208b1e1a53cbdfee8b49887858cc3a500f6 (patch) | |
| tree | f0725d024be85e888bffe68803c63464a7ac0f80 | |
| parent | f1d2db68d87f2c47a8dd4d86910e415599777f9f (diff) | |
| download | haskell-f337a208b1e1a53cbdfee8b49887858cc3a500f6.tar.gz | |
Simply Data instance context for AmbiguousFieldOcc
The current, verbose instance context can be compacted into
`DataId pass`. Indeed, that's what most of the `Data` instances
in this module already do, so this just makes things consistent.
| -rw-r--r-- | compiler/hsSyn/HsTypes.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/hsSyn/HsTypes.hs b/compiler/hsSyn/HsTypes.hs index e9dea63dfe..e9fc71bdd7 100644 --- a/compiler/hsSyn/HsTypes.hs +++ b/compiler/hsSyn/HsTypes.hs @@ -1129,10 +1129,7 @@ mkFieldOcc rdr = FieldOcc rdr PlaceHolder data AmbiguousFieldOcc pass = Unambiguous (Located RdrName) (PostRn pass (IdP pass)) | Ambiguous (Located RdrName) (PostTc pass (IdP pass)) -deriving instance ( Data pass - , Data (PostTc pass (IdP pass)) - , Data (PostRn pass (IdP pass))) - => Data (AmbiguousFieldOcc pass) +deriving instance DataId pass => Data (AmbiguousFieldOcc pass) instance Outputable (AmbiguousFieldOcc pass) where ppr = ppr . rdrNameAmbiguousFieldOcc |