File: Set.hs

package info (click to toggle)
alex 3.1.7-4
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 916 kB
  • sloc: haskell: 4,244; xml: 1,479; yacc: 246; makefile: 99; ansic: 4
file content (15 lines) | stat: -rw-r--r-- 311 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
{-# LANGUAGE CPP #-}
module Set ( Set, member, empty, insert ) where

import Data.Set 

#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ < 603
member :: Ord a => a -> Set a -> Bool
member = elementOf

empty  :: Set a
empty = emptySet

insert :: Ord a => a -> Set a -> Set a
insert = flip addToSet
#endif