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

olaf: Fri Mar 16 19:02:46 CET 2001 Update of /usr/src/master/nhc/src/compiler98 In directory hinken:/tmp/cvs-serv21995/src/compiler98 Modified Files: DbgDataTrans.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.