unison/unison-src/transcripts/fix2712.md
2024-06-25 11:11:07 -07:00

362 B

scratch/main> 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
scratch/main> add

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