let serve ~body _ req = ignore (body); match Uri.path (Request.uri req) with | "/" -> root req | _ -> Server.respond_with_string "try curling /\n"