package logs

  1. Overview
  2. Docs
package logs
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file logs_threaded.ml

1
2
3
4
5
6
7
8
9
(*---------------------------------------------------------------------------
   Copyright (c) 2019 The logs programmers. All rights reserved.
   SPDX-License-Identifier: ISC
  ---------------------------------------------------------------------------*)

let enable () =
  let lock = Mutex.create () in
  let lock () = Mutex.lock lock and unlock () = Mutex.unlock lock in
  Logs.set_reporter_mutex ~lock ~unlock