Module Error.Def

type 'e t = [
| `Deflate of 'e
| `Deflate_file of Fpath.t * 'e
]
val pp_error : (Stdlib.Format.formatter -> 'a -> unit) -> Stdlib.Format.formatter -> [< `Deflate of 'a | `Deflate_file of Fpath.t * 'a ] -> unit
val err_deflate : 'a -> [> `Deflate of 'a ]
val err_deflate_file : 'a -> 'b -> [> `Deflate_file of 'a * 'b ]
val with_path : 'a -> [< `Deflate of 'b | `Deflate_file of 'a * 'b ] -> [> `Deflate_file of 'a * 'b ]