Typo
[packages/base.git] / tests / trace001.hs
1 import System.IO
2 import Debug.Trace
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")