Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
402a1daa
Commit
402a1daa
authored
Nov 17, 2011
by
Simon Peyton Jones
Browse files
Make DsMeta work right on tuples (cf Trac
#5597
)
parent
207a2a63
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/deSugar/DsMeta.hs
View file @
402a1daa
...
...
@@ -676,15 +676,13 @@ repTy (HsPArrTy t) = do
t1
<-
repLTy
t
tcon
<-
repTy
(
HsTyVar
(
tyConName
parrTyCon
))
repTapp
tcon
t1
repTy
(
HsTupleTy
HsBoxedTuple
tys
)
=
do
tys1
<-
repLTys
tys
tcon
<-
repTupleTyCon
(
length
tys
)
repTapps
tcon
tys1
repTy
(
HsTupleTy
HsUnboxedTuple
tys
)
=
do
tys1
<-
repLTys
tys
tcon
<-
repUnboxedTupleTyCon
(
length
tys
)
repTapps
tcon
tys1
repTy
(
HsTupleTy
_
_
)
=
panic
"repTy HsTupleTy"
repTy
(
HsTupleTy
_
tys
)
=
do
tys1
<-
repLTys
tys
tcon
<-
repTupleTyCon
(
length
tys
)
repTapps
tcon
tys1
repTy
(
HsOpTy
ty1
(
_
,
n
)
ty2
)
=
repLTy
((
nlHsTyVar
(
unLoc
n
)
`
nlHsAppTy
`
ty1
)
`
nlHsAppTy
`
ty2
)
repTy
(
HsParTy
t
)
=
repLTy
t
...
...
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