moveToJob :: Timestamp -> (Node.List, Instance.List) -> MoveJob -> [MetaOpCode]
moveToJob now (nl, il) (_, idx, move, _) =
  let opCodes = Cluster.iMoveToJob nl il idx move
  in map (annotateOpCode "auto-balancing the cluster" now) opCodes
moveToJob :: Timestamp -> (Node.List, Instance.List) -> MoveJob -> [MetaOpCode]
moveToJob now (nl, il) (_, idx, move, _) =
  let opCodes = Cluster.iMoveToJob nl il idx move
  in map (annotateOpCode "auto-balancing the cluster" now) opCodes
moveToJob now (nl, il) (_, idx, move, _) =
  let opCodes = Cluster.iMoveToJob nl il idx move
  in map (annotateOpCode "auto-balancing the cluster" now) opCodes