mirror of
https://github.com/Smaug123/nix-maui
synced 2025-10-11 04:08:44 +00:00
16 lines
389 B
Forth
16 lines
389 B
Forth
namespace MauiDotnetFlake
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Map =
|
|
|
|
let union<'k, 'v when 'k : comparison> (merge : 'v -> 'v -> 'v) (m1 : Map<'k, 'v>) (m2 : Map<'k, 'v>) =
|
|
(m1, m2)
|
|
||> Map.fold (fun acc k v ->
|
|
acc
|
|
|> Map.change k (function
|
|
| None -> Some v
|
|
| Some v2 -> Some (merge v v2)
|
|
)
|
|
)
|
|
|