Simple concurrent issue?

[Hannah Schroeter]

Hello!

When running this program under GHC 4.08 (OpenBSD 2.7, x86),
only "b"s are written. Shouldn't GHC's implementation of
Concurrent Haskell be preemptive?

Regards,

Hannah.

import Concurrent

main = forkIO a >> b
 where
  a = putStrLn "a" >> a
  b = putStrLn "b" >> b