Source file `debug_log_config.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
module Stable = struct
  open Core.Core_stable
  module Log_output = Env_config.Log_output.Stable.V1

  module V1 = struct
    type t = Log_output.t list [@@deriving sexp]
  end
end

open! Core
open Env_config
include Stable.V1

let examples =
  [ [ Log_output.Stderr ]
  ; [ Log_output.File { format = `Sexp; filename = "krb_debug.log" } ]
  ]
;;