Skip to content

GitLab

Commit 78fa2386 authored by Philippe Veber's avatar Philippe Veber
Browse files

update wrt core

parent c5af63bf
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 3 deletions
lib/multinomial.ml
View file @ 78fa2386
......@@ -53,9 +53,9 @@ let%pworkflow multinomial_ocaml_implementation ~meth ~(tree_sc:_ file) ~(faa:ami
)
)
in
let seqs0, seqs1 = List.partition_map leaves ~f:(function
| (aa, 0) -> `Fst aa
| (aa, 1) -> `Snd aa
let seqs0, seqs1 = List.partition_map leaves ~f:Either.(function
| (aa, 0) -> First aa
| (aa, 1) -> Second aa
| _ -> assert false
)
in
......
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