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

better secmod

Browse source
This commit is contained in:
swrup 2026-02-17 09:30:20 +01:00 • committed by Swrup
parent 67d0820643
commit 7bb2f60f24
24 changed files with 1231 additions and 1022 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/syntax.ml
View file

@ -7,6 +7,8 @@ let unwrap_err_msg o = match o with Error (`Msg e) -> Error e | Ok v -> Ok v
let unwrap_err_caqti o =
match o with Error err -> Fmt.error "%a" Caqti_error.pp err | Ok v -> Ok v
(* TODO list_filter_map *)
let list_iter f l =
let err = ref None in
try