Haskell - 等待第一个事件（没有忙等待）

Question

我希望在Haskell中有一个非常简单的代码来处理事件。

例如，我正在寻找类似的东西：

main = do
    firstEvent <- waitForEvent
    -- Do Something with that... --

waitForEvent = do
    letter <- getChar
    OR
    sth <- getSomethingFromSocket
    OR
    -- etc --

我想在没有“忙碌等待”的情况下举办第一场活动。

谢谢！