+ (** log a list of libxslt's messages using a processing logger *)
+let log_libxslt_msgs logger =
+ List.iter
+ (function
+ | Uwobo_styles.LibXsltErrorMsg msg ->
+ logger#logBold ("LibXSLT ERROR: " ^ msg)
+ | Uwobo_styles.LibXsltDebugMsg msg ->
+ logger#logEmph ("LibXSLT DEBUG " ^ msg))
+;;
+
+ (* request handler action