This fixed the second example. Thanks.

I think handleConnection should be

handleConnection :: RequestHandler -> Handle -> IO ()

handleConnection r h = handleToRequest h >>= responseSend h . runRequestHandler r

Levi