@@ -195,28 +195,25 @@ let apply ~resolver ~useBsDependencies moduleName =
195195 moduleName |> Lazy. force resolver.lazyFind ~use BsDependencies
196196
197197(* * Resolve a reference to ModuleName, and produce a path suitable for require.
198- E.g. require "../foo/bar/ModuleName.ext" where ext is ".re " or ".js". *)
198+ E.g. require "../foo/bar/ModuleName.ext" where ext is ".res " or ".js". *)
199199let resolveModule ~(config : Config.t ) ~importExtension ~outputFileRelative
200200 ~resolver ~useBsDependencies moduleName =
201201 let outputFileRelativeDir =
202- (* e.g. src if we're generating src/File.re .js *)
202+ (* e.g. src if we're generating src/File.bs .js *)
203203 Filename. dirname outputFileRelative
204204 in
205205 let outputFileAbsoluteDir = config.projectRoot +++ outputFileRelativeDir in
206- let moduleNameReFile =
207- (* Check if the module is in the same directory as the file being generated.
208- So if e.g. project_root/src/ModuleName.re exists. *)
209- outputFileAbsoluteDir +++ (ModuleName. toString moduleName ^ " .re" )
210- in
211206 let moduleNameResFile =
207+ (* Check if the module is in the same directory as the file being generated.
208+ So if e.g. project_root/src/ModuleName.res exists. *)
212209 outputFileAbsoluteDir +++ (ModuleName. toString moduleName ^ " .res" )
213210 in
214211 let candidate =
215212 (* e.g. import "./Modulename.ext" *)
216213 moduleName
217214 |> ImportPath. fromModule ~dir: Filename. current_dir_name ~import Extension
218215 in
219- if Sys. file_exists moduleNameReFile || Sys. file_exists moduleNameResFile then
216+ if Sys. file_exists moduleNameResFile then
220217 candidate
221218 else
222219 let rec pathToList path =
@@ -229,7 +226,7 @@ let resolveModule ~(config : Config.t) ~importExtension ~outputFileRelative
229226 match moduleName |> apply ~resolver ~use BsDependencies with
230227 | None -> candidate
231228 | Some (resolvedModuleDir , case , bsDependencies ) ->
232- (* e.g. "dst" in case of dst/ModuleName.re *)
229+ (* e.g. "dst" in case of dst/ModuleName.res *)
233230 let walkUpOutputDir =
234231 outputFileRelativeDir |> pathToList
235232 |> List. map (fun _ -> Filename. parent_dir_name)
0 commit comments