Added toAscList as synonym of current toList

Author: joshuahhh

src/Data/Map.purs

@@ -19,6 +19,7 @@ module Data.Map
   , fromFoldable
   , fromFoldableWith
   , toList
+  , toAscList
   , toUnfoldable
   , delete
   , pop
@@ -384,6 +385,10 @@ toList Leaf = Nil
 toList (Two left k v right) = toList left <> Tuple k v : toList right
 toList (Three left k1 v1 mid k2 v2 right) = toList left <> Tuple k1 v1 : toList mid <> Tuple k2 v2 : toList right
 
+-- | Convert a map to a list of key/value pairs where the keys are in ascending order
+toAscList :: forall k v. Map k v -> List (Tuple k v)
+toAscList = toList
+
 -- | Convert a map to an unfoldable structure of key/value pairs
 toUnfoldable :: forall f k v. Unfoldable f => Map k v -> f (Tuple k v)
 toUnfoldable m = unfoldr go (m : Nil) where

test/Test/Data/Map.purs

@@ -218,6 +218,12 @@ mapTests = do
             groupBy ((==) `on` fst) <<< sortBy (compare `on` fst) in
     M.fromFoldableWith (<>) arr === f (arr :: List (Tuple String String))
 
+  log "toAscList is sorted version of toList"
+  quickCheck $ \(TestMap m) ->
+    let list = M.toList (m :: M.Map SmallKey Int)
+        ascList = M.toAscList m
+    in ascList === sortBy (compare `on` fst) list
+
   log "Lookup from union"
   quickCheck $ \(TestMap m1) (TestMap m2) k ->
     M.lookup (smallKey k) (M.union m1 m2) == (case M.lookup k m1 of