huh

Author: chenglou

analysis/src/FindFiles.ml

@@ -290,11 +290,17 @@ let findDependencyFiles ~debug base config =
              Log.log ("Skipping nonexistent dependency: " ^ name);
              ([], []))
   in
+  print_endline "FindFiles.findDependencyFiles12";
   let directories, files = List.split depFiles in
+  print_endline "FindFiles.findDependencyFiles13";
   let files = List.concat files in
+  print_endline "FindFiles.findDependencyFiles14";
   match BuildSystem.getStdlib base with
-  | Error e -> Error e
+  | Error e ->  print_endline "FindFiles.findDependencyFiles15"; Error e
   | Ok stdlibDirectory ->
+  print_endline "FindFiles.findDependencyFiles16";
     let directories = stdlibDirectory :: List.concat directories in
+  print_endline "FindFiles.findDependencyFiles17";
     let results = files @ collectFiles stdlibDirectory in
+  print_endline "FindFiles.findDependencyFiles18";
     Ok (directories, results)

analysis/src/Packages.ml

@@ -24,9 +24,13 @@ let newBsPackage rootPath =
     (* failwith("Wat"); *)
     Log.log ("- location: " ^ rootPath);
     let compiledBase = BuildSystem.getCompiledBase rootPath in
+      print_endline "Packages.newBsPackage1";
     match FindFiles.findDependencyFiles ~debug:true rootPath config with
-    | Error e -> Error e
+    | Error e ->
+      print_endline "Packages.newBsPackage2";
+      Error e
     | Ok (dependencyDirectories, dependencyModules) -> (
+      print_endline "Packages.newBsPackage3";
       match compiledBase with
       | None ->
         Error