Please could the Concurrency library have a yield action!

[George Russell]

GHC offers pre-emptive scheduling, so yield may be redundant.
But Hugs doesn't so it is vital.  At the moment it looks like I shall
have to simulate it by creating an MVar () and swapMVar'ing it, but
that's not exactly ideal!  So please could yield be provided?  Thanks.