shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add missing Traversable instance

--- a/lib/Data/List/NonEmpty.hs

+++ b/lib/Data/List/NonEmpty.hs

@@ -161,8 +161,8 @@

   showsPrec p = showsPrec p . toList

 instance Foldable NonEmpty where

   foldr f z = foldr f z . toList

---instance Traversable NonEmpty where

---  traverse f = fromList . traverse f . toList

+instance Traversable NonEmpty where

+  traverse f = fmap fromList . traverse f . toList

 ----- End MHS replacement