mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-12-15 13:25:39 +00:00
Add HTTP Swagger client generator (#250)
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user