Is it true that an exception is always terminates the thread?

[wagnerdm at seas.upenn.edu]

Quoting Heka Treep <zena.treep at gmail.com>:

> actor mbox = do
>   empty <- atomically $ isEmptyTChan mbox
>   if empty
>     then actor mbox
>     else do
>       val <- atomically $ readTChan mbox
>       putStrLn val
>       actor mbox

This looks a bit silly. Why not just this?

actor mbox = forever $ atomically (readTChan mbox) >>= putStrLn

~d