Revision a2e90275 hbal.hs

b/hbal.hs
91 91
              let
92 92
                  (Cluster.Table _ _ _ fin_plc) = fin_tbl
93 93
                  fin_plc_len = length fin_plc
94
                  cur_plc = head fin_plc
94
                  cur_plc@(_, _, _, move, _) = head fin_plc
95 95
                  (sol_line, cmds) = Cluster.printSolutionLine ini_nl ini_il
96 96
                                     nmlen imlen cur_plc fin_plc_len
97 97
                  afn = Cluster.involvedNodes ini_il cur_plc
98
                  upd_cmd_strs = (afn, cmds):cmd_strs
98
                  upd_cmd_strs = (afn, move, cmds):cmd_strs
99 99
              unless oneline $ do
100 100
                       putStrLn sol_line
101 101
                       hFlush stdout

Also available in: Unified diff