object Client extends SafeApp {
  def run[A](a: IO[A])(server: unfiltered.netty.Http) =
    IO(server.start).bracket_(IO(server.stop) >> IO(server.destroy))(a)
  override def runc =
    Server.client(Server.server(8000) _ >>> run((Application launch classOf[Client]).point[IO]))
}