simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-07 03:35:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

remove uses of |> in roseTree and its tests

Browse source
This commit is contained in:
Simon Cruanes 2015-01-26 11:57:39 +01:00
parent aa3c57e4a8
commit a5b78fd940
2 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/misc/roseTree.ml
View file

@ -110,7 +110,7 @@ module Zipper = struct
| last_left::tail_rev_lefts -> | last_left::tail_rev_lefts ->
Some { Some {
tree = last_left ; tree = last_left ;
lefts = tail_rev_lefts |> List.rev ; lefts = List.rev tail_rev_lefts;
rights = zipper.tree::zipper.rights ; rights = zipper.tree::zipper.rights ;
parents = zipper.parents parents = zipper.parents
} }

4
tests/test_RoseTree.ml
View file

@ -1,5 +1,7 @@
open Containers_misc
open OUnit open OUnit
open CCFun
module RoseTree = Containers_misc.RoseTree
let format_node = Format.pp_print_int let format_node = Format.pp_print_int