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 > > >