evacuatedInsts :: (Node.List, Instance.List)
               -> MoveJob
               -> [String]
evacuatedInsts (nl, il) (_, idx, _, _) =
  let inst = Container.find idx il
      node = Container.find (Instance.pNode inst) nl
  in [Instance.name inst | Node.offline node]
evacuatedInsts :: (Node.List, Instance.List)
               -> MoveJob
               -> [String]
evacuatedInsts (nl, il) (_, idx, _, _) =
  let inst = Container.find idx il
      node = Container.find (Instance.pNode inst) nl
  in [Instance.name inst | Node.offline node]
evacuatedInsts (nl, il) (_, idx, _, _) =
  let inst = Container.find idx il
      node = Container.find (Instance.pNode inst) nl
  in [Instance.name inst | Node.offline node]