unix: fix regression in irmin tree

mirage · Feb 23, 2017 · e370741 · e370741
1 parent 805a3cc
commit e370741
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bin/ir_cli.ml b/bin/ir_cli.ml
@@ -203,7 +203,7 @@ let tree = {
       run begin
         store >>= fun t ->
         let all = ref [] in
-        let todo = ref [] in
+        let todo = ref [S.Key.empty] in
         let rec walk () = match !todo with
           | []      -> Lwt.return_unit
           | k::rest ->