Easy_logging 0.2

Community
7

Hi,

I am using “easy_logging” in one of my side projects. I noticed the log file is truncated every time I execute the program. I am expecting new log entries appended to the log file till it reaches 65536 KB. Below is the code to create logger and logging. Am i missing something? Thanks.

let get_logger lname fname =
  let open Easy_logging in
  let h_config : Handlers.config =
    {
      file_handlers =
        {
          logs_folder = "logs/";
          truncate = false;
          file_perms = 0o664;
          date_prefix = Some "%Y%m%d_";
          versioning = None;
          suffix = ".log";
        };
    }
  in
  Logging.set_handlers_config h_config;
  Logging.make_logger lname Debug [ RotatingFile (fname, Debug, 65536, 2) ]

let () =
  let logger = get_logger "rdf_parsing" "catalog" in
  try
    logger#info "%s" "Getting settings...";
    (** program logic here **)

    logger#info "Total files [%d]. Start parsing..." (List.length files);
   
  with _ ->
    logger#error "%s"
      ("Error occured while decoding rdf file.\n" ^ Printexc.get_backtrace ())
1 Like