prefix error messages with "[OCaml HTTP]"

[helm.git] / helm / DEVEL / ocaml-http / http_common.ml

diff --git a/helm/DEVEL/ocaml-http/http_common.ml b/helm/DEVEL/ocaml-http/http_common.ml
index 839d2aff3f35dcff5063e1f8cea988789558fed5..ed595590d2caf7dfa1b14af7f6c310942dadf3ba 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_common.ml
+++ b/helm/DEVEL/ocaml-http/http_common.ml
@@ -25,7 +25,7 @@ open Printf;;
 let debug = ref false
 let debug_print s =
   if !debug then
-    prerr_endline (sprintf "DEBUG: %s" s)
+    prerr_endline (sprintf "[OCaml HTTP] DEBUG: %s" s)
 
 let http_version = Http_constants.version
 let server_string = Http_constants.server_string