(String.concat ", " supported_properties) (* supported properties *)
;;
-let pp_error = sprintf "<html><body><h1>Error: %s</h1></body></html>";;
+let pp_error =
+ sprintf "<html><body><span style=\"color:red\">Error: %s</span></body></html>"
+;;
let return_error msg outchan =
Http_daemon.respond ~body:(pp_error msg) outchan;;
let bad_request body outchan =
Http_daemon.respond_error ~code:400 ~body outchan
;;
-