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

Use pattern-matching instead of List.hd and List.tl.

Browse source
This commit is contained in:
Emm 2015-01-25 22:56:54 +01:00
parent 1cdfa06c68
commit 84af4f6f2e
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/misc/roseTree.ml
View file

@ -58,13 +58,13 @@ module Zipper = struct
let tree zipper = zipper.tree
let left_sibling zipper =
match zipper.lefts with
let rev_lefts = List.rev zipper.lefts in
match rev_lefts with
| [] -> None
| lefts ->
let rev_lefts = List.rev lefts in
| last_left::tail_rev_lefts ->
Some {
tree = List.hd rev_lefts ;
lefts = List.tl rev_lefts |> List.rev ;
tree = last_left ;
lefts = tail_rev_lefts |> List.rev ;
rights = zipper.tree::zipper.rights ;
parents = zipper.parents
}