Revision 4036f63a htools/Ganeti/HTools/IAlloc.hs

b/htools/Ganeti/HTools/IAlloc.hs
244 244 
formatNodeEvac :: Group.List
245 245 
               -> Node.List
246 246 
               -> Instance.List
247 
               -> Cluster.EvacSolution
247 
               -> (Node.List, Instance.List, Cluster.EvacSolution)
248 248 
               -> Result IAllocResult
249 
formatNodeEvac gl nl il es =
249 
formatNodeEvac gl nl il (_, _, es) =
250 250 
    let iname = Instance.name . flip Container.find il
251 251 
        nname = Node.name . flip Container.find nl
252 252 
        gname = Group.name . flip Container.find gl

Also available in: Unified diff