Fix another infinite loop on paths on Windows. (#199)

* Fix another infinite loop on paths on Windows.

Co-authored-by: Cheng Lou <[email protected]>

Author: cristianoc

analysis/src/ModuleResolution.ml

@@ -1,5 +1,5 @@
 let rec resolveNodeModulePath ~startPath name =
   let path = Filename.concat (Filename.concat startPath "node_modules") name in
   if Files.exists path then Some path
-  else if startPath = "/" then None
+  else if Filename.dirname startPath = startPath then None
   else resolveNodeModulePath ~startPath:(Filename.dirname startPath) name