aurore/firewall
10
0
Fork 0
Code Issues Pull requests Releases Activity

Add infix operators

Browse source
This commit is contained in:
jeltz 2022-09-06 17:19:22 +02:00
parent 3504737de8
commit 482bc9ecb6
Signed by: jeltz
GPG key ID: 800882B66C0C3326
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
utils.ml
View file

@ -2,3 +2,6 @@ let rec deoptionalise = function
| Some x :: xs -> x :: deoptionalise xs | Some x :: xs -> x :: deoptionalise xs
| None :: xs -> deoptionalise xs | None :: xs -> deoptionalise xs
| [] -> [] | [] -> []
let ( &?> ) left right = match left with Error _ -> right | ok -> ok
let ( &> ) left right = match left with Error _ -> right | Ok ok -> ok