Revision 71375ef7 htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
158 158 
  let (kti, il) = assignIndices iobj
159 159 
  -- cluster tags
160 160 
  ctags <- extrObj "cluster_tags"
161 
  cdata1 <- mergeData [] [] [] [] (ClusterData gl nl il ctags)
161 
  cdata1 <- mergeData [] [] [] [] (ClusterData gl nl il ctags defIPolicy)
162 162 
  let (msgs, fix_nl) = checkData (cdNodes cdata1) (cdInstances cdata1)
163 163 
      cdata = cdata1 { cdNodes = fix_nl }
164 164 
      map_n = cdNodes cdata
......
307 307 
-- | Process a request and return new node lists.
308 308 
processRequest :: Request -> Result IAllocResult
309 309 
processRequest request =
310 
  let Request rqtype (ClusterData gl nl il _) = request
310 
  let Request rqtype (ClusterData gl nl il _ _) = request
311 311 
  in case rqtype of
312 312 
       Allocate xi reqn ->
313 313 
         Cluster.tryMGAlloc gl nl il xi reqn >>= formatAllocate il

Also available in: Unified diff