balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

FunView: fix recursive removal.

Browse Source
This commit is contained in:
Grégoire Henry 2017-03-04 21:52:05 +01:00
parent 534dc6af9d
commit ccfdaa6bd0
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/node/db/ir_funview.ml
View File

@ -577,8 +577,18 @@ module Make (S: Irmin.S) = struct
| None -> Lwt.return_none
| Some n ->
match Node.read_succ n h with
| None -> Lwt.return_none
| Some child -> aux child p
| None ->
Lwt.return_none
| Some child ->
aux child p >>= function
| None -> Lwt.return_none
| Some child -> begin
(* remove empty dirs *)
Node.is_empty child >>= function
| true -> Lwt.return_none
| false -> Lwt.return (Some child)
end >>= fun child ->
Node.with_succ view h child
in
aux n k >>= function
| None -> Lwt.return t