@@ -287,6 +287,10 @@ export
287287mergeLeft : SortedMap k v -> SortedMap k v -> SortedMap k v
288288mergeLeft = mergeWith const
289289
290+export
291+(Show k, Show v) => Show (SortedMap k v) where
292+ show m = "fromList " ++ (show $ toList m)
293+
290294-- TODO: is this the right variant of merge to use for this? I think it is, but
291295-- I could also see the advantages of using `mergeLeft`. The current approach is
292296-- strictly more powerful I believe, because `mergeLeft` can be emulated with