enumset-0.0.3: src/Data/EnumSet/Utility.hs

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