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
3790ea90
Commit
3790ea90
authored
Aug 30, 2017
by
Simon Peyton Jones
Browse files
Small changes to ddump-tc tracing
parent
805b29bb
Changes
4
Hide whitespace changes
Inline
Side-by-side
compiler/typecheck/Inst.hs
View file @
3790ea90
...
...
@@ -48,7 +48,7 @@ import CoreSyn ( isOrphan )
import
FunDeps
import
TcMType
import
Type
import
TyCoRep
(
TyBinder
(
..
)
)
import
TyCoRep
import
TcType
import
HscTypes
import
Class
(
Class
)
...
...
@@ -196,15 +196,16 @@ top_instantiate inst_all orig ty
;
let
inst_theta'
=
substTheta
subst
inst_theta
sigma'
=
substTy
subst
(
mkForAllTys
leave_bndrs
$
mkFunTys
leave_theta
rho
)
inst_tv_tys'
=
mkTyVarTys
inst_tvs'
;
wrap1
<-
instCall
orig
(
mkTyVarTys
inst_tvs'
)
inst_theta'
;
wrap1
<-
instCall
orig
inst_tv
_ty
s'
inst_theta'
;
traceTc
"Instantiating"
(
vcat
[
text
"all tyvars?"
<+>
ppr
inst_all
,
text
"origin"
<+>
pprCtOrigin
orig
,
text
"type"
<+>
ppr
ty
,
text
"type"
<+>
debugPprType
ty
,
text
"theta"
<+>
ppr
theta
,
text
"leave_bndrs"
<+>
ppr
leave_bndrs
,
text
"with"
<+>
ppr
inst_tvs'
,
text
"with"
<+>
vcat
(
map
debugPprType
inst_tv
_ty
s'
)
,
text
"theta:"
<+>
ppr
inst_theta'
])
;
(
wrap2
,
rho2
)
<-
...
...
compiler/typecheck/TcTyClsDecls.hs
View file @
3790ea90
...
...
@@ -2506,7 +2506,7 @@ checkValidDataCon dflags existential_ok tc con
-- data T = MkT {-# UNPACK #-} !a -- Can't unpack
;
zipWith3M_
check_bang
(
dataConSrcBangs
con
)
(
dataConImplBangs
con
)
[
1
..
]
;
traceTc
"Done validity of data con"
(
ppr
con
<+>
ppr
(
dataConRepType
con
))
;
traceTc
"Done validity of data con"
(
ppr
con
<+>
debugPprType
(
dataConRepType
con
))
}
where
ctxt
=
ConArgCtxt
(
dataConName
con
)
...
...
compiler/typecheck/TcUnify.hs
View file @
3790ea90
...
...
@@ -1280,8 +1280,11 @@ uType_defer t_or_k origin ty1 ty2
;
whenDOptM
Opt_D_dump_tc_trace
$
do
{
ctxt
<-
getErrCtxt
;
doc
<-
mkErrInfo
emptyTidyEnv
ctxt
;
traceTc
"utype_defer"
(
vcat
[
ppr
co
,
ppr
ty1
,
ppr
ty2
,
pprCtOrigin
origin
,
doc
])
;
traceTc
"utype_defer"
(
vcat
[
debugPprType
ty1
,
debugPprType
ty2
,
pprCtOrigin
origin
,
doc
])
;
traceTc
"utype_defer2"
(
ppr
co
)
}
;
return
co
}
...
...
compiler/types/Type.hs
View file @
3790ea90
...
...
@@ -687,7 +687,7 @@ splitAppTy_maybe ty | Just ty' <- coreView ty
splitAppTy_maybe
ty
=
repSplitAppTy_maybe
ty
-------------
repSplitAppTy_maybe
::
Type
->
Maybe
(
Type
,
Type
)
repSplitAppTy_maybe
::
HasDebugCallStack
=>
Type
->
Maybe
(
Type
,
Type
)
-- ^ Does the AppTy split as in 'splitAppTy_maybe', but assumes that
-- any Core view stuff is already done
repSplitAppTy_maybe
(
FunTy
ty1
ty2
)
...
...
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