More dumpPath.

Author: cristianoc

analysis/.depend

@@ -17,9 +17,9 @@ src/ModuleResolution.cmx : src/Files.cmx
 src/NewCompletions.cmx : src/Utils.cmx src/Uri2.cmx src/SharedTypes.cmx \
     src/Shared.cmx src/Protocol.cmx src/ProcessCmt.cmx src/PartialParser.cmx \
     src/Log.cmx src/Hover.cmx
-src/Packages.cmx : src/Uri2.cmx src/SharedTypes.cmx src/Log.cmx \
-    src/vendor/Json.cmx src/Infix.cmx src/FindFiles.cmx src/Files.cmx \
-    src/BuildSystem.cmx
+src/Packages.cmx : src/Utils.cmx src/Uri2.cmx src/SharedTypes.cmx \
+    src/Log.cmx src/vendor/Json.cmx src/Infix.cmx src/FindFiles.cmx \
+    src/Files.cmx src/BuildSystem.cmx
 src/PartialParser.cmx : src/SharedTypes.cmx
 src/PrepareUtils.cmx :
 src/PrintType.cmx : src/vendor/res_outcome_printer/res_outcome_printer.cmx \

analysis/src/Packages.ml

@@ -47,7 +47,8 @@ let newBsPackage ~rootPath =
            |> List.iter (fun (name, paths) ->
                   Log.log name;
                   match paths with
-                  | SharedTypes.Impl {cmt} -> Log.log ("impl " ^ cmt)
+                  | SharedTypes.Impl {cmt} ->
+                    Log.log ("impl " ^ Utils.dumpPath cmt)
                   | _ -> Log.log "Both");
            let pathsForModule =
              makePathsForModule ~projectFilesAndPaths ~dependenciesFilesAndPaths
@@ -61,7 +62,10 @@ let newBsPackage ~rootPath =
                Hashtbl.add pathsForModule namespace (Namespace {cmt});
                [FindFiles.nameSpaceToName namespace]
            in
-           Log.log ("Dependency dirs " ^ String.concat " " dependencyDirectories);
+           Log.log
+             ("Dependency dirs "
+             ^ String.concat " "
+                 (dependencyDirectories |> List.map Utils.dumpPath));
            let opens_from_bsc_flags =
              match Json.get "bsc-flags" config |?> Json.array with
              | Some l ->