Revision 91575c31 htools/Ganeti/HTools/Cluster.hs

b/htools/Ganeti/HTools/Cluster.hs
999 999 
                 -> EvacInnerState    -- ^ New best solution
1000 1000 
evacOneNodeInner nl inst gdx op_fn accu ndx =
1001 1001 
  case applyMove nl inst (op_fn ndx) of
1002 
    OpFail fm ->
1003 
      case accu of
1004 
        Right _ -> accu
1005 
        Left _ -> Left $ "Node " ++ Container.nameOf nl ndx ++
1006 
                  " failed: " ++ show fm
1002 
    OpFail fm -> let fail_msg = "Node " ++ Container.nameOf nl ndx ++
1003 
                                " failed: " ++ show fm
1004 
                 in either (const $ Left fail_msg) (const accu) accu
1007 1005 
    OpGood (nl', inst', _, _) ->
1008 1006 
      let nodes = Container.elems nl'
1009 1007 
          -- The fromJust below is ugly (it can fail nastily), but

Also available in: Unified diff