cannot have unmatched patterns

Author: Johannes Waldmann

containers/src/Data/Set/Internal.hs

@@ -1874,9 +1874,7 @@ splitBits m | m > 0 =
   in  ST up (countTrailingZeros med) lo
 
 clearLowest :: Int -> Int
-clearLowest m | m > 0 = m .&. (m-1)
-
-
+clearLowest m = m .&. (m-1)
 
 -- Proof of complexity: step executes n times. At the ith step,
 -- "insertMin x `mapMonotonic` pxs" takes O(2^i log i) time since pxs has size