We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 4dc3fe2 commit e808b50Copy full SHA for e808b50
analysis/src/ProcessCmt.ml
@@ -1286,7 +1286,7 @@ let fileForModule modname ~package =
1286
if Hashtbl.mem package.pathsForModule modname then (
1287
let paths = Hashtbl.find package.pathsForModule modname in
1288
(* TODO: do better *)
1289
- let cmt = SharedTypes.getCmt paths in
+ let cmt = SharedTypes.getCmt ~interface:false paths in
1290
let uri =
1291
match SharedTypes.getSrc paths with
1292
| Some sourcePath -> Uri2.fromPath sourcePath
analysis/src/SharedTypes.ml
@@ -136,7 +136,7 @@ let getSrc p =
136
| Namespace _ -> None
137
| IntfAndImpl {resi} -> Some resi
138
139
-let getCmt ?(interface = true) p =
+let getCmt ~interface p =
140
match p with
141
| Impl {cmt} -> cmt
142
| Namespace {cmt} -> cmt
0 commit comments