Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
fd3ceb3c
Commit
fd3ceb3c
authored
Feb 05, 1999
by
sof
Browse files
[project @ 1999-02-05 12:35:42 by sof]
deriving Enum bugfixes
parent
f0b56cc5
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/prelude/PrelInfo.lhs
View file @
fd3ceb3c
...
...
@@ -611,7 +611,7 @@ deriving_occ_info
, (ordClassKey, [intTyCon_RDR, compose_RDR, eqTag_RDR])
-- EQ (from Ordering) is needed to force in the constructors
-- as well as the type constructor.
, (enumClassKey, [intTyCon_RDR, and_RDR, map_RDR, plus_RDR, showsPrec_RDR, append_RDR])
, (enumClassKey, [intTyCon_RDR,
eq_RDR, ge_RDR,
and_RDR, map_RDR, plus_RDR, showsPrec_RDR, append_RDR])
-- The last two Enum deps are only used to produce better
-- error msgs for derived toEnum methods.
, (boundedClassKey, [intTyCon_RDR])
...
...
ghc/compiler/typecheck/TcGenDeriv.lhs
View file @
fd3ceb3c
...
...
@@ -512,8 +512,8 @@ gen_Enum_binds tycon
(mk_easy_App mkInt_RDR [ah_RDR])
(mk_easy_App mkInt_RDR [bh_RDR])
(HsIf (HsApp (HsApp (HsVar gt_RDR)
(
HsVar a
_RDR))
(
HsVar b
_RDR))
(
mk_easy_App mkInt_RDR [ah
_RDR
]
))
(
mk_easy_App mkInt_RDR [bh
_RDR
]
))
(HsLit (HsInt 0))
(HsVar (maxtag_RDR tycon))
tycon_loc))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment