Revision 4c1275f9 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)


  		





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


  		





  34
  34
  
    

  		





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


  		





  36
  36
  
    
import Ganeti.PyValueInstances ()


  		





  ......




  61
  61
  
    
mkSet :: Ord a => [a] -> FrozenSet a


  		





  62
  62
  
    
mkSet = FrozenSet . Set.fromList


  		





  63
  63
  
    

  		





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


  		





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


  		





  
  66
  
    

  		





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


  		





  65
  68
  
    
data Protocol = Tcp | Udp


  		





  66
  69
  
    
  deriving (Show)


  		












Also available in:
  Unified diff