1{-# LANGUAGE CPP #-} 2module Set ( Set, member, empty, insert ) where 3 4import Data.Set 5 6#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 603 7member :: Ord a => a -> Set a -> Bool 8member = elementOf 9 10empty :: Set a 11empty = emptySet 12 13insert :: Ord a => a -> Set a -> Set a 14insert = flip addToSet 15#endif 16