Commit 3664c198 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Suppress the alarming SpecConstr message for normal users (Trac #5125)

This is the offending message:
      Function `$wks2{v s2dJ} [lid]'
        has one call pattern, but the limit is 0
      Use -fspec-constr-count=n to set the bound
      Use -dppr-debug to see specialisations

The message isn't very good, and is for experts only. So now it
comes out only
    if you build with -DDEBUG
    or you specify -dppr-debug at runtime
parent 3afdf90d
......@@ -1313,8 +1313,10 @@ specialise env bind_calls (RI fn _ arg_bndrs body arg_occs)
spec_count' = n_pats + spec_count
; case sc_count env of
Just max | not (sc_force env) && spec_count' > max
-> pprTrace "SpecConstr" msg $
return (nullUsage, spec_info)
-> if (debugIsOn || opt_PprStyle_Debug) -- Suppress this scary message for
then pprTrace "SpecConstr" msg $ -- ordinary users! Trac #5125
return (nullUsage, spec_info)
else return (nullUsage, spec_info)
msg = vcat [ sep [ ptext (sLit "Function") <+> quotes (ppr fn)
, nest 2 (ptext (sLit "has") <+>
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment