Source file `errno.ml`

1
2
3
4
5
6
7
8
9
10
11
open! Core

let to_error errno =
  Core_unix.Error.of_system_int ~errno |> Core_unix.Error.message |> Or_error.error_string
;;

let to_result errno =
  match errno with
  | 0 -> Ok ()
  | errno -> to_error errno
;;