Fix typo in error message for minimum (#350)
authorCharles Cooper <cooper.charles.m@gmail.com>
Fri, 23 Dec 2016 23:40:39 +0000 (18:40 -0500)
committerDavid Feuer <David.Feuer@gmail.com>
Fri, 23 Dec 2016 23:40:39 +0000 (18:40 -0500)
* Fix typo in error message for minimum

* Change the error messages for maximum and minimum

This message mirrors the error messages in Data.Foldable, while
prefixing the module name to help the user a little bit.

* Increase message verbosity

Data/IntMap/Internal.hs
Data/Map/Internal.hs

index 6c0efd2..0576b1e 100644 (file)
@@ -425,7 +425,7 @@ instance Foldable.Foldable IntMap where
           go x (Bin _ _ l r) = go x l || go x r
   {-# INLINABLE elem #-}
   maximum = start
-    where start Nil = error "IntMap.Foldable.maximum: called with empty map"
+    where start Nil = error "Data.Foldable.maximum (for Data.IntMap): empty map"
           start (Tip _ y) = y
           start (Bin _ _ l r) = go (start l) r
 
@@ -434,7 +434,7 @@ instance Foldable.Foldable IntMap where
           go m (Bin _ _ l r) = go (go m l) r
   {-# INLINABLE maximum #-}
   minimum = start
-    where start Nil = error "IntMap.Foldable.minimum: called with empty map"
+    where start Nil = error "Data.Foldable.minimum (for Data.IntMap): empty map"
           start (Tip _ y) = y
           start (Bin _ _ l r) = go (start l) r
 
index ca21117..8fc766d 100644 (file)
@@ -4030,14 +4030,14 @@ instance Foldable.Foldable (Map k) where
           go x (Bin _ _ v l r) = x == v || go x l || go x r
   {-# INLINABLE elem #-}
   maximum = start
-    where start Tip = error "Map.Foldable.maximum: called with empty map"
+    where start Tip = error "Data.Foldable.maximum (for Data.Map): empty map"
           start (Bin _ _ v l r) = go (go v l) r
 
           go !m Tip = m
           go m (Bin _ _ v l r) = go (go (max m v) l) r
   {-# INLINABLE maximum #-}
   minimum = start
-    where start Tip = error "Map.Foldable.minumum: called with empty map"
+    where start Tip = error "Data.Foldable.minimum (for Data.Map): empty map"
           start (Bin _ _ v l r) = go (go v l) r
 
           go !m Tip = m