Added the allow_other option by default

bin/main.ml

@@ -8,7 +8,7 @@ let tar_path = if Array.length Sys.argv < 2 then
                else Array.get Sys.argv 1
 
 let (root, tar_ch) = Tar.parse_tar tar_path
-let () = Tar.print_tree "" root
+(* let () = Tar.print_tree "" root *)
 
 let rec getattr path =
   match Tar.find path root with
@@ -63,7 +63,7 @@ let readlink path =
   | _ -> raise (Unix.Unix_error (Unix.ENOENT, "readlink", path))
 
 let _ =
-  let args = Array.append  (Array.sub Sys.argv 1 ((Array.length Sys.argv) - 1)) [|"-o";"use_ino"|] in
+  let args = Array.append  (Array.sub Sys.argv 1 ((Array.length Sys.argv) - 1)) [|"-o";"use_ino";"-o";"allow_other"|] in
   Fuse.main args
     {
       Fuse.default_operations with

bin/tar.ml

@@ -91,7 +91,7 @@ let rec add_deep node = function
      add_direct last node dir
   | (one :: rest, dir) ->
      add_direct one (add_deep node (rest, (find_or_infer_dir one dir))) dir
-  | _ -> failwith "heh"
+  | (_, dir) -> dir
 
 let inc_nlink path tree =
   add_deep