htools: return new state from new IAllocator modes

[ganeti-local] / htools / Ganeti / HTools / IAlloc.hs

diff --git a/htools/Ganeti/HTools/IAlloc.hs b/htools/Ganeti/HTools/IAlloc.hs
index 4c6c2b4..1212946 100644 (file)
--- a/htools/Ganeti/HTools/IAlloc.hs
+++ b/htools/Ganeti/HTools/IAlloc.hs
@@ -244,9 +244,9 @@ formatAllocate as = do
 formatNodeEvac :: Group.List
                -> Node.List
                -> Instance.List
-               -> Cluster.EvacSolution
+               -> (Node.List, Instance.List, Cluster.EvacSolution)
                -> Result IAllocResult
-formatNodeEvac gl nl il es =
+formatNodeEvac gl nl il (_, _, es) =
     let iname = Instance.name . flip Container.find il
         nname = Node.name . flip Container.find nl
         gname = Group.name . flip Container.find gl