cgi: minor

[sqlgg.git] / error.ml

(** Error output *)

open Printf

let logs = prerr_endline
let log format = ksprintf logs format
(* let report format = ksprintf (fun str -> logs ("Project : warning _____: " ^ str)) format *)
let report = log

(* VS error format: 
  path(lineno) : warning _____: string
*)