getCmt: make labelled argument interface non-optional.

Author: cristianoc

analysis/src/ProcessCmt.ml

@@ -1286,7 +1286,7 @@ let fileForModule modname ~package =
   if Hashtbl.mem package.pathsForModule modname then (
     let paths = Hashtbl.find package.pathsForModule modname in
     (* TODO: do better *)
-    let cmt = SharedTypes.getCmt paths in
+    let cmt = SharedTypes.getCmt ~interface:false paths in
     let uri =
       match SharedTypes.getSrc paths with
       | Some sourcePath -> Uri2.fromPath sourcePath

analysis/src/SharedTypes.ml

@@ -136,7 +136,7 @@ let getSrc p =
   | Namespace _ -> None
   | IntfAndImpl {resi} -> Some resi
 
-let getCmt ?(interface = true) p =
+let getCmt ~interface p =
   match p with
   | Impl {cmt} -> cmt
   | Namespace {cmt} -> cmt