GHC build prints tons of debug output mentioning `cpe_app`
When building from a recent commit in master
, my terminal is flooded with tons of debug-related messages that all look like the following:
cpe_app(keepAlive#) 3
cpe_app(keepAlive)
case case copyByteArrayToAddr#
@RealWorld barr#_s75d 0# buf_s75n size_s75e ipv2_a5D7
of s1_s75o
{ __DEFAULT ->
let {
sat_s75q :: Int
[LclId]
sat_s75q = I# size_s75e } in
let {
sat_s75p :: Ptr CChar
[LclId]
sat_s75p = Ptr @CChar buf_s75n } in
let {
sat_s75r :: CStringLen
[LclId]
sat_s75r = (sat_s75p, sat_s75q) } in
((action_s75a sat_s75r)
`cast` (N:IO[0] <a_a4G2>_R
:: IO a_a4G2
~R# (State# RealWorld -> (# State# RealWorld, a_a4G2 #))))
s1_s75o
}
of sat_s75l
{ __DEFAULT ->
case touch# @'UnliftedRep @ByteArray# ipv3_a5D8 realWorld#
of sat_s75m
{ __DEFAULT ->
sat_s75l
}
}
Some digging reveals that this code is responsible:
: rest <- pprTrace "cpe_app keepAlive#" (ppr args) args
= do { pprTraceM "cpe_app(keepAlive#)" (ppr n)
; ...
; pprTraceM "cpe_app(keepAlive)" (ppr expr)
Should those pprTrace{M}
s have made it to master
? CC @bgamari, who appears to have introduced this.