Revision 129734d3 htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
220 220 
formatAllocate :: Instance.List -> Cluster.AllocSolution -> Result IAllocResult
221 221 
formatAllocate il as = do
222 222 
  let info = describeSolution as
223 
  case Cluster.asSolutions as of
224 
    [] -> fail info
225 
    (nl, inst, nodes, _):[] ->
223 
  case Cluster.asSolution as of
224 
    Nothing -> fail info
225 
    Just (nl, inst, nodes, _) ->
226 226 
        do
227 227 
          let il' = Container.add (Instance.idx inst) inst il
228 228 
          return (info, showJSON $ map Node.name nodes, nl, il')
229 
    _ -> fail "Internal error: multiple allocation solutions"
230 229 

  		





  231
  230
  
    
-- | Convert a node-evacuation/change group result.


  		





  232
  231
  
    
formatNodeEvac :: Group.List


  		












Also available in:
  Unified diff