Revision 139c0683 htools/Ganeti/HTools/Loader.hs

b/htools/Ganeti/HTools/Loader.hs
74 74 
  | NodeEvacuate [Idx] EvacMode              -- ^ node-evacuate mode
75 75 
  | ChangeGroup [Gdx] [Idx]                  -- ^ Multi-relocate mode
76 76 
  | MultiAllocate [(Instance.Instance, Int)] -- ^ Multi-allocate mode
77 
    deriving (Show, Read)
77 
    deriving (Show)
78 78 

  		





  79
  79
  
    
-- | A complete request, as received from Ganeti.


  		





  80
  80
  
    
data Request = Request RqType ClusterData


  		





  81
  
  
    
               deriving (Show, Read)


  		





  
  81
  
    
               deriving (Show)


  		





  82
  82
  
    

  		





  83
  83
  
    
-- | The cluster state.


  		





  84
  84
  
    
data ClusterData = ClusterData


  		





  ......




  87
  87
  
    
  , cdInstances :: Instance.List -- ^ The instance list


  		





  88
  88
  
    
  , cdTags      :: [String]      -- ^ The cluster tags


  		





  89
  89
  
    
  , cdIPolicy   :: IPolicy       -- ^ The cluster instance policy


  		





  90
  
  
    
  } deriving (Show, Read, Eq)


  		





  
  90
  
    
  } deriving (Show, Eq)


  		





  91
  91
  
    

  		





  92
  92
  
    
-- | An empty cluster.


  		





  93
  93
  
    
emptyCluster :: ClusterData


  		












Also available in:
  Unified diff