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

b/htools/Ganeti/HTools/Group.hs
46 46 
  , idx         :: T.Gdx         -- ^ Internal index for book-keeping
47 47 
  , allocPolicy :: T.AllocPolicy -- ^ The allocation policy for this group
48 48 
  , iPolicy     :: T.IPolicy     -- ^ The instance policy for this group
49 
  , allTags     :: [String]      -- ^ The tags for this group
49 50 
  } deriving (Show, Read, Eq)
50 51 

  		





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


  		





  ......




  66
  67
  
    
-- * Initialization functions


  		





  67
  68
  
    

  		





  68
  69
  
    
-- | Create a new group.


  		





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


  		





  70
  
  
    
create name_init id_init apol_init ipol_init =


  		





  
  70
  
    
create :: String -> T.GroupID -> T.AllocPolicy -> T.IPolicy -> [String] -> Group


  		





  
  71
  
    
create name_init id_init apol_init ipol_init tags_init =


  		





  71
  72
  
    
  Group { name        = name_init


  		





  72
  73
  
    
        , uuid        = id_init


  		





  73
  74
  
    
        , allocPolicy = apol_init


  		





  74
  75
  
    
        , iPolicy     = ipol_init


  		





  
  76
  
    
        , allTags     = tags_init


  		





  75
  77
  
    
        , idx         = -1


  		





  76
  78
  
    
        }


  		





  77
  79
  
    

  		












Also available in:
  Unified diff