Merge pull request #6897 from phadej/nes-toSet

Add toSet to NonEmptySet

Author: phadej

Cabal/Distribution/Compat/NonEmptySet.hs

@@ -8,6 +8,7 @@ module Distribution.Compat.NonEmptySet (
     toNonEmpty,
     fromNonEmpty,
     toList,
+    toSet,
     -- * Query
     member,
     -- * Map
@@ -100,6 +101,9 @@ toNonEmpty (NES s) = case Set.toList s of
 toList :: NonEmptySet a -> [a]
 toList (NES s) = Set.toList s
 
+toSet :: NonEmptySet a -> Set.Set a
+toSet (NES s) = s
+
 -------------------------------------------------------------------------------
 -- Query
 -------------------------------------------------------------------------------