module Data.EnumSet.Utility where import qualified Data.Bits as B import Data.Bits (Bits, (.&.), ) -- fixity like .&. infixl 7 .-. (.-.) :: (Bits w) => w -> w -> w x .-. y = x .&. B.complement y