Revision 608efcce hail.hs

b/hail.hs
85 85 
tryReloc :: (Monad m) =>
86 86 
            Node.List
87 87 
         -> Instance.List
88 
         -> Idx
88 89 
         -> Int
89 
         -> Int
90 
         -> [Int]
90 
         -> [Ndx]
91 91 
         -> m [(Maybe Node.List, [Node.Node])]
92 92 
tryReloc nl il xid 1 ex_idx =
93 93 
    let all_nodes = getOnline nl
94 94 
        inst = Container.find xid il
95 95 
        ex_idx' = (Instance.pnode inst):ex_idx
96 
        valid_nodes = filter (not . flip elem ex_idx' . idxOf) all_nodes
96 
        valid_nodes = filter (not . flip elem ex_idx' . Node.idx) all_nodes
97 97 
        valid_idxes = map Node.idx valid_nodes
98 98 
        sols1 = map (\x -> let (mnl, _, _, _) =
99 99 
                                    Cluster.applyMove nl inst

Also available in: Unified diff