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

Indent rose tree records.

Browse source
This commit is contained in:
Emm 2015-01-25 23:36:23 +01:00
parent 84af4f6f2e
commit f9d061af9e
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/misc/roseTree.ml
View file

@ -49,9 +49,18 @@ let print formatter string_of_value tree =
module Zipper = struct module Zipper = struct
type 'a parent = { left_siblings: ('a tree) list; value: 'a; right_siblings: ('a tree) list } type 'a parent = {
left_siblings: ('a tree) list ;
value: 'a ;
right_siblings: ('a tree) list ;
}
type 'a t = { tree: 'a tree; lefts: ('a tree) list; rights: ('a tree) list; parents: ('a parent) list } type 'a t = {
tree: 'a tree ;
lefts: ('a tree) list ;
rights: ('a tree) list ;
parents: ('a parent) list ;
}
let zipper tree = { tree = tree ; lefts = []; rights = []; parents = [] } let zipper tree = { tree = tree ; lefts = []; rights = []; parents = [] }