Add HTTP Swagger client generator (#250)

This commit is contained in:
Patrick Stevens
2024-09-19 17:21:09 +01:00
committed by GitHub
parent 4482038e8a
commit 93a1b630c8
15 changed files with 71759 additions and 3 deletions

View File

@@ -12,3 +12,12 @@ module private List =
)
List.rev xs, List.rev ys
let allSome<'a> (l : 'a option list) : 'a list option =
let rec go acc (l : 'a option list) =
match l with
| [] -> Some (List.rev acc)
| None :: _ -> None
| Some head :: tail -> go (head :: acc) tail
go [] l