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