diff options
Diffstat (limited to 'testsuite/tests/concurrent/should_run/conc002.hs')
| -rw-r--r-- | testsuite/tests/concurrent/should_run/conc002.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testsuite/tests/concurrent/should_run/conc002.hs b/testsuite/tests/concurrent/should_run/conc002.hs index 93efd6fe4c..ab2ed50b85 100644 --- a/testsuite/tests/concurrent/should_run/conc002.hs +++ b/testsuite/tests/concurrent/should_run/conc002.hs @@ -7,8 +7,8 @@ main = do let writer = writeList2Chan c "Hello World\n" forkIO writer let reader = do char <- readChan c - if (char == '\n') - then return () - else do putChar char; reader + if (char == '\n') + then return () + else do putChar char; reader reader |