Revision 6804faa0 htools/Ganeti/HTools/QC.hs

b/htools/Ganeti/HTools/QC.hs
908 908 
               (xnl, xi, _, _):[] ->
909 909 
                   let sdx = Instance.sNode xi
910 910 
                       il' = Container.add (Instance.idx xi) xi il
911 
                   in case Cluster.tryEvac xnl il' [Instance.idx xi] [sdx] of
912 
                        Just _ -> True
911 
                   in case IAlloc.processRelocate defGroupList xnl il'
912 
                          (Instance.idx xi) 1 [sdx] of
913 
                        Types.Ok _ -> True
913 914 
                        _ -> False
914 915 
               _ -> False
915 916 

  		












Also available in:
  Unified diff