swrup/mte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wip basic error response

Browse source
This commit is contained in:
Swrup 2025-09-28 22:12:16 +02:00
parent 4cbf3c722c
commit 0549bb098a
4 changed files with 72 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/util.ml
View file

@ -28,3 +28,7 @@ let extension_to_mimetype ext =
(fun (mime, ext') ->
match String.equal ext ext' with false -> None | true -> Some mime)
mimetype_ext_assoc
(* -- pretty printers -- *)
let pp_mime fmt mime = Fmt.pf fmt "%s/%s" (fst mime) (snd mime)
let pp_array pp_item item = Fmt.array ~sep:(Fmt.any ", ") pp_item item