[cvs-nhc98] Use newtype IO instead of data IO, even for tracing.