unison/unison-src/transcripts/fix2712.md
2022-02-11 19:16:07 -05:00

340 B

.> builtins.merge
unique type Map k v = Tip | Bin Nat k v (Map k v) (Map k v)

mapWithKey : (k ->{e} a ->{e} b) -> Map k a ->{e} Map k b
mapWithKey f m = Tip
.> add

naiomi = 
  susan: Nat -> Nat -> ()
  susan a b = ()
  
  pam: Map Nat Nat
  pam = Tip
  
  mapWithKey susan pam