hide un-used name (-Werror complains)

Author: Johannes Waldmann

containers/src/Data/Set/Internal.hs

@@ -1827,7 +1827,6 @@ splitRoot orig =
 --
 -- @since 0.5.11
 
-
 powerSet :: Set a -> Set (Set a)
 powerSet xs =
   let !w = length xs
@@ -1889,9 +1888,9 @@ clearLowest m | m > 0 = m .&. (m-1)
 -- = O(log n * \sum_{i=1}^{n-1} 2^i)
 -- = O(2^n log n)
 
-powerSet_orig :: Set a -> Set (Set a)
-powerSet_orig xs0 = insertMin empty (foldr' step Tip xs0) where
-  step x pxs = insertMin (singleton x) (insertMin x `mapMonotonic` pxs) `glue` pxs
+-- powerSet_orig :: Set a -> Set (Set a)
+-- powerSet_orig xs0 = insertMin empty (foldr' step Tip xs0) where
+--   step x pxs = insertMin (singleton x) (insertMin x `mapMonotonic` pxs) `glue` pxs
 
 -- | \(O(nm)\). Calculate the Cartesian product of two sets.
 --