2024-10-26 14:33:54 +02:00
|
|
|
namespace Pentole
|
|
|
|
|
|
|
|
|
|
module Map =
|
|
|
|
|
let find (key: 'key) (map: Map<'key, 'value>) =
|
|
|
|
|
match Map.tryFind key map with
|
|
|
|
|
| Some v -> Ok v
|
|
|
|
|
| None -> Error $"Can't find key {key}"
|
2024-10-28 19:33:36 +01:00
|
|
|
|
2024-11-06 15:32:32 +01:00
|
|
|
let values (map: Map<'k, 'v>): 'v list =
|
|
|
|
|
Map.values map |> List.ofSeq
|
