ghc/tests/lib/IOExts/trace001.hs

   1 import IO
   2 import IOExts
   3
   4 main = do
   5    hPutStr stderr
   6         (trace (trace (trace (trace (trace (trace (trace
   7           "one" "fish") "two") "fish") "red") "fish") "blue") "fish")
   8    hPutStr stdout
   9         (trace (trace (trace (trace (trace (trace (trace
  10           "one" "fish") "two") "fish") "red") "fish") "blue") "fish")