Revision c8b199db src/Ganeti/HTools/Group.hs

b/src/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 
  , networks    :: [T.NetworkID] -- ^ The networks connected to this group
48 49 
  , iPolicy     :: T.IPolicy     -- ^ The instance policy for this group
49 50 
  , allTags     :: [String]      -- ^ The tags for this group
50 51 
  } deriving (Show, Eq)
......
67 68 
-- * Initialization functions
68 69 

  		





  69
  70
  
    
-- | Create a new group.


  		





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


  		





  71
  
  
    
create name_init id_init apol_init ipol_init tags_init =


  		





  
  71
  
    
create :: String        -- ^ The node name


  		





  
  72
  
    
       -> T.GroupID     -- ^ The UUID of the group


  		





  
  73
  
    
       -> T.AllocPolicy -- ^ The allocation policy for this group


  		





  
  74
  
    
       -> [T.NetworkID] -- ^ The networks connected to this group


  		





  
  75
  
    
       -> T.IPolicy     -- ^ The instance policy for this group


  		





  
  76
  
    
       -> [String]      -- ^ The tags for this group


  		





  
  77
  
    
       -> Group


  		





  
  78
  
    
create name_init id_init apol_init nets_init ipol_init tags_init =


  		





  72
  79
  
    
  Group { name        = name_init


  		





  73
  80
  
    
        , uuid        = id_init


  		





  74
  81
  
    
        , allocPolicy = apol_init


  		





  
  82
  
    
        , networks    = nets_init


  		





  75
  83
  
    
        , iPolicy     = ipol_init


  		





  76
  84
  
    
        , allTags     = tags_init


  		





  77
  85
  
    
        , idx         = -1


  		












Also available in:
  Unified diff