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