Not working hello world webserver in Haskell

gistfile1.txt

import Control.Monad
import System.IO
import Network

main = withSocketsDo $ do
    sock <- listenOn (PortNumber 9000)
    putStrLn "Listening on port 9000"
    forever $ do
        (handle, hostname, port) <- accept sock
        x <- hGetContents handle
        print x
        hPutStr handle "HTTP/1.0 200 OK\nContent-Length: 16\n\nHello, World!\n"
        hClose handle

As Botje pointed out in #haskell hGetContents will block on the reading until handle is closed, thats why the web server will never respond.