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
bf641043
Commit
bf641043
authored
May 24, 2007
by
mnislaih
Browse files
wibble
parent
9670d664
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/ghci/RtClosureInspect.hs
View file @
bf641043
...
...
@@ -569,8 +569,8 @@ cvReconstructType hsc_env force mb_ty hval = runTR hsc_env $ do
(
dataConRepArgTys
dc
)
-- It is vital for newtype reconstruction that the unification step
-- is done right here, _before_ the subterms are RTTI reconstructed
let
myType
=
mkFunTys
subTtypes
tv
signatureType
<-
instScheme
(
dataConRepType
dc
)
let
myType
=
mkFunTys
subTtypes
tv
(
signatureType
,
_
)
<-
instScheme
(
dataConRepType
dc
)
addConstraint
myType
signatureType
return
$
map
(
\
(
I
#
i
#
,
t
)
->
case
ptrs
clos
of
(
Array
_
_
ptrs
#
)
->
case
indexArray
#
ptrs
#
i
#
of
...
...
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