Revision 6cff91f5 htools/Ganeti/HTools/Group.hs

b/htools/Ganeti/HTools/Group.hs
45 45 
  , uuid        :: T.GroupID     -- ^ The UUID of the group
46 46 
  , idx         :: T.Gdx         -- ^ Internal index for book-keeping
47 47 
  , allocPolicy :: T.AllocPolicy -- ^ The allocation policy for this group
48 
  , iPolicy     :: T.IPolicy     -- ^ The instance policy for this group
48 49 
  } deriving (Show, Read, Eq)
49 50 

  		





  50
  51
  
    
-- Note: we use the name as the alias, and the UUID as the official


  		





  ......




  65
  66
  
    
-- * Initialization functions


  		





  66
  67
  
    

  		





  67
  68
  
    
-- | Create a new group.


  		





  68
  
  
    
create :: String -> T.GroupID -> T.AllocPolicy -> Group


  		





  69
  
  
    
create name_init id_init apol_init =


  		





  
  69
  
    
create :: String -> T.GroupID -> T.AllocPolicy -> T.IPolicy -> Group


  		





  
  70
  
    
create name_init id_init apol_init ipol_init =


  		





  70
  71
  
    
  Group { name        = name_init


  		





  71
  72
  
    
        , uuid        = id_init


  		





  72
  73
  
    
        , allocPolicy = apol_init


  		





  
  74
  
    
        , iPolicy     = ipol_init


  		





  73
  75
  
    
        , idx         = -1


  		





  74
  76
  
    
        }


  		





  75
  77
  
    

  		












Also available in:
  Unified diff