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

fix alt_unit_names

Browse source
This commit is contained in:
swrup 2026-02-27 22:05:47 +01:00
parent 19b4188f7c
commit 9ebe44c83f
4 changed files with 45 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/syntax.ml
View file

@ -55,11 +55,3 @@ let list_fold_left f acc l =
let* acc = acc in
f acc v)
(Ok acc) l
let list_option l =
match (List.for_all Option.is_none l, List.for_all Option.is_some l) with
| _, true ->
let l = List.map Option.get l in
Ok (Some l)
| true, _ -> Ok None
| _, _ -> Error ()