nailed to findFiles

Author: chenglou

analysis/src/FindFiles.ml

@@ -233,34 +233,43 @@ let findDependencyFiles ~debug base config =
   let depFiles =
     deps
     |> List.map (fun name ->
+           print_endline "FindFiles.findDependencyFiles1";
            let result =
              ModuleResolution.resolveNodeModulePath ~startPath:base name
              |?> fun loc ->
+           print_endline "FindFiles.findDependencyFiles2";
              let innerPath = loc ++ "bsconfig.json" in
              Log.log ("Dep loc " ^ innerPath);
              match Files.readFile innerPath with
              | Some text -> (
+           print_endline "FindFiles.findDependencyFiles4";
                let inner = Json.parse text in
                let namespace = getNamespace inner in
+           print_endline "FindFiles.findDependencyFiles5";
                let directories =
                  getSourceDirectories ~includeDev:false loc inner
                in
+           print_endline "FindFiles.findDependencyFiles6";
                match BuildSystem.getCompiledBase loc with
-               | None -> None
+               | None ->           print_endline "FindFiles.findDependencyFiles7"; None
                | Some compiledBase ->
+           print_endline "FindFiles.findDependencyFiles8";
                  if debug then Log.log ("Compiled base: " ^ compiledBase);
                  let compiledDirectories =
                    directories |> List.map (Filename.concat compiledBase)
                  in
+           print_endline "FindFiles.findDependencyFiles9";
                  let compiledDirectories =
                    match namespace with
                    | None -> compiledDirectories
                    | Some _ -> compiledBase :: compiledDirectories
                  in
+           print_endline "FindFiles.findDependencyFiles10";
                  let files =
                    findProjectFiles ~debug namespace loc directories
                      compiledBase
                  in
+           print_endline "FindFiles.findDependencyFiles11";
                  (*
               let files = switch (namespace) {
               | None =>