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
Alfredo Di Napoli
GHC
Commits
0c420cb6
Commit
0c420cb6
authored
Feb 17, 2016
by
eir@cis.upenn.edu
Browse files
Comments only (
#11513
)
parent
525b54c4
Changes
1
Show whitespace changes
Inline
Side-by-side
compiler/basicTypes/DataCon.hs
View file @
0c420cb6
...
...
@@ -768,6 +768,8 @@ mkDataCon name declared_infix prom_info
tag
=
assoc
"mkDataCon"
(
tyConDataCons
rep_tycon
`
zip
`
[
fIRST_TAG
..
])
con
rep_arg_tys
=
dataConRepArgTys
con
-- NB: This type is user-facing for datatypes that don't need wrappers;
-- so it's important to use mkSpecForAllTys
rep_ty
=
mkSpecForAllTys
univ_tvs
$
mkSpecForAllTys
ex_tvs
$
mkFunTys
rep_arg_tys
$
mkTyConApp
rep_tycon
(
mkTyVarTys
univ_tvs
)
...
...
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