Revision fa8d6aa7 src/Ganeti/ConstantUtils.hs

b/src/Ganeti/ConstantUtils.hs
30 30 

  		





  31
  31
  
    
import Data.Char (ord)


  		





  32
  32
  
    
import Data.Set (Set)


  		





  33
  
  
    
import qualified Data.Set as Set (fromList, toList, union)


  		





  
  33
  
    
import qualified Data.Set as Set (difference, fromList, toList, union)


  		





  34
  34
  
    

  		





  35
  35
  
    
import Ganeti.THH (PyValue(..))


  		





  36
  36
  
    
import Ganeti.PyValueInstances ()


  		





  ......




  64
  64
  
    
union :: Ord a => FrozenSet a -> FrozenSet a -> FrozenSet a


  		





  65
  65
  
    
union x y = FrozenSet (unFrozenSet x `Set.union` unFrozenSet y)


  		





  66
  66
  
    

  		





  
  67
  
    
difference :: Ord a => FrozenSet a -> FrozenSet a -> FrozenSet a


  		





  
  68
  
    
difference x y = FrozenSet (unFrozenSet x `Set.difference` unFrozenSet y)


  		





  
  69
  
    

  		





  67
  70
  
    
-- | 'Protocol' represents the protocols used by the daemons


  		





  68
  71
  
    
data Protocol = Tcp | Udp


  		





  69
  72
  
    
  deriving (Show)


  		












Also available in:
  Unified diff