-class processingLogger =
- let html_escape s = (* TODO too naive, use Nethtml.encode instead *)
- Pcre.replace ~pat:"<" ~templ:"<"
- (Pcre.replace ~pat:">" ~templ:">"
- (Pcre.replace ~pat:"&" ~templ:"&" s))
- in
- fun () ->
+ (** non thread safe, a processingLogger is usually instantied locally for each
+ thread *)
+class processingLogger () =