Haskell 的 Web 服务器是怎样同时处理多个请求的?

看到过简单的服务器, 或者说持续处理请求的方式吧, 像这样

haskellimport Control.Monad  
import Data.Char  

main = forever $ do  
    putStr "Give me some input: "  
    l <- getLine  
    putStrLn $ map toUpper l  

代码来源: http://learnyouahaskell.com/input-and-output

但是如果要同时处理请求的话, Haskell 内部是怎样实现的呢?
Node 代码执行是不会等待回调函数的, 可是 Haskell 模型不一样, 怎么做的?

---

Haskell 并发处理 I/O 可以用 forkIO 的。并行是另外的工具，忘记了……