Revision e08424a8 htools/hbal.hs

b/htools/hbal.hs
109 109 
    let Cluster.Table ini_nl ini_il _ _ = ini_tbl
110 110 
        allowed_next = Cluster.doNextBalance ini_tbl max_rounds min_score
111 111 
        m_fin_tbl = if allowed_next
112 
                    then Cluster.tryBalance ini_tbl disk_moves evac_mode
113 
                         mg_limit min_gain
112 
                    then Cluster.tryBalance ini_tbl disk_moves inst_moves
113 
                         evac_mode mg_limit min_gain
114 114 
                    else Nothing
115 115 
    in
116 116 
      case m_fin_tbl of

Also available in: Unified diff