Revision a334d536 Ganeti/HTools/QC.hs

b/Ganeti/HTools/QC.hs
676 676 
         Types.Ok (_, _, sols3) ->
677 677 
             case sols3 of
678 678 
               [] -> False
679 
               (_, (xnl, xi, _, cv)):[] ->
679 
               (xnl, xi, _, cv):[] ->
680 680 
                   let il' = Container.add (Instance.idx xi) xi il
681 681 
                       tbl = Cluster.Table xnl il' cv []
682 682 
                   in not (canBalance tbl True False)
......
716 716 
         Types.Ok (_, _, sols3) ->
717 717 
             case sols3 of
718 718 
               [] -> False
719 
               (_, (xnl, xi, _, _)):[] ->
719 
               (xnl, xi, _, _):[] ->
720 720 
                   let sdx = Instance.sNode xi
721 721 
                       il' = Container.add (Instance.idx xi) xi il
722 722 
                   in case Cluster.tryEvac xnl il' [sdx] of

Also available in: Unified diff