You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
406 B
23 lines
406 B
type t = |
|
| Quiet |
|
| Error |
|
| Info |
|
| Debug; |
|
|
|
let toString = logLevel => |
|
switch (logLevel) { |
|
| Quiet => "quiet" |
|
| Error => "error" |
|
| Info => "info" |
|
| Debug => "debug" |
|
}; |
|
|
|
let fromString = logLevelString => |
|
switch (logLevelString) { |
|
| "quiet" => Quiet |
|
| "error" => Error |
|
| "info" => Info |
|
| "debug" |
|
| "all" => Debug |
|
| _ => failwith("Unsupported level: " ++ logLevelString) |
|
};
|
|
|