snapshot Fri, 29 Nov 2002 12:38:23 +0100 zack

[helm.git] / helm / uwobo / src / ocaml / uwobo.ml

diff --git a/helm/uwobo/src/ocaml/uwobo.ml b/helm/uwobo/src/ocaml/uwobo.ml
index 334255b408e69d60414908bbdeb51dd442c010ef..4584e091044298e3cc1c4261c18d165fb1d7df05 100644 (file)
--- a/helm/uwobo/src/ocaml/uwobo.ml
+++ b/helm/uwobo/src/ocaml/uwobo.ml
@@ -159,11 +159,13 @@ let callback req outchan =
         syslogger#log `Debug (sprintf "Parsing input document %s ..." xmluri);
         let domImpl = Gdome.domImplementation () in
         let input = domImpl#createDocumentFromURI ~uri:xmluri () in
+        syslogger#log `Debug "Applying stylesheet chain ...";
         let output =
-          Uwobo_engine.apply ~logger ~styles ~keys ~input ~params ~props
+          Uwobo_engine.apply
+            ~logger:syslogger ~styles ~keys ~input ~params ~props
           (* TODO uhm ... what to do if Uwobo_failure is raised? *)
         in
-        syslogger#log `Debug logger#asText;
+(*         syslogger#log `Debug logger#asText; *)
         let tempfile = (* temporary file on which save XML output *)
           (* TODO I don't need a tempfile, but gdome seems not to permit to
           return the string representation of a Gdome.document *)