Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
3cec5683
Commit
3cec5683
authored
Sep 06, 2006
by
simonpj@microsoft.com
Browse files
Comment on the commoning up of CoPats in Match
parent
133d0902
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/deSugar/Match.lhs
View file @
3cec5683
...
...
@@ -745,6 +745,10 @@ sameGroup (PgN l1) (PgN l2) = True -- Needs conditionals
sameGroup (PgNpK l1) (PgNpK l2) = l1==l2 -- Order is significant
-- See Note [Order of n+k]
sameGroup (PgCo t1) (PgCo t2) = t1 `coreEqType` t2
-- CoPats are in the same goup only if the type of the
-- enclosed pattern is the same. The patterns outside the CoPat
-- always have the same type, so this boils down to saying that
-- the two coercions are identical.
sameGroup _ _ = False
patGroup :: Pat Id -> PatGroup
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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