[cvs-nhc98] Correct bug in desugaring of do notation in DbgDataTrans.

[User olaf]

olaf: Fri Mar 16 19:02:47 CET 2001

Update of /usr/src/master/nhc/src/prelude/PreludeDebug
In directory hinken:/tmp/cvs-serv21995/src/prelude/PreludeDebug

Modified Files:
	PreludeDebug.hs 
Log Message:
Correct bug in desugaring of do notation in DbgDataTrans.
It created DeclSccs instead of DeclParse.


Changed definition of combinator tif in DebugPrelude, so that
an unevaluated if is shown in unevaluated form instead of
always being evaluated.
The following used to give a blackhole before:
main = print (True || if x then False else False)
x :: Bool
x = x


Also performed some inlining in combinators of DebugPrelude,
but effect on runtime is not noticeable.