warnPprTrace _ _file _line _msg x | opt_NoDebugOutput = x
warnPprTrace False _file _line _msg x = x
warnPprTrace True file line msg x
warnPprTrace _ _file _line _msg x | opt_NoDebugOutput = x
warnPprTrace False _file _line _msg x = x
warnPprTrace True file line msg x
where
doc = sep [hsep [text "WARNING: file", text file, text "line", int line],
msg]
where
doc = sep [hsep [text "WARNING: file", text file, text "line", int line],
msg]