Revision 4e6f1cde src/Ganeti/ConstantUtils.hs

b/src/Ganeti/ConstantUtils.hs
61 61 
mkSet :: Ord a => [a] -> FrozenSet a
62 62 
mkSet = FrozenSet . Set.fromList
63 63 

  		





  
  64
  
    
toList :: FrozenSet a -> [a]


  		





  
  65
  
    
toList = Set.toList . unFrozenSet


  		





  
  66
  
    

  		





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


  		





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


  		





  66
  69
  
    

  		












Also available in:
  Unified diff