Commit 868cfd29 authored by Louis Duchemin's avatar Louis Duchemin
Browse files

Fixed grouping break function in toolbox.Gemma

parent 9a086443
......@@ -140,7 +140,7 @@ module Result_file = struct
let scores =
List.sort results ~compare:(fun it1 it2 ->
Int.compare it1.index it2.index)
|> List.group ~break:(fun l1 l2 -> l1.index = l2.index)
|> List.group ~break:(fun l1 l2 -> l1.index <> l2.index)
|> List.map ~f:(function
| [] -> assert false
| h :: t -> site_aggregator (List1.cons h t) |> Option.some)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment