-processResults :: (Monad m) => Cluster.AllocSolution -> m (String, [Node.Node])
-processResults (fstats, successes, sols) =
+processResults :: (Monad m) =>
+ RqType -> Cluster.AllocSolution
+ -> m (String, Cluster.AllocSolution)
+processResults _ (_, _, []) = fail "No valid allocation solutions"
+processResults (Evacuate _) as@(fstats, successes, sols) =
+ let best = fst $ head sols
+ tfails = length fstats
+ info = printf "for last allocation, successes %d, failures %d,\
+ \ best score: %.8f" successes tfails best::String
+ in return (info, as)
+
+processResults _ as@(fstats, successes, sols) =