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}"

    let values (map: Map<'k, 'v>): 'v list =
        Map.values map |> List.ofSeq