- if not (Http_getter_storage.is_legacy uri) then
- let dep = resolve uri ma_baseuri in
- (match dep with
- | None -> ()
- | Some u ->
- match script_of_baseuri ma_file u with
- | Some d -> Hashtbl.add include_deps ma_file d
- | None -> ())
- | DependenciesParser.InlineDep path
- | DependenciesParser.IncludeDep path ->
- ignore (baseuri_of_script path);
- Hashtbl.add include_deps ma_file path)
+ handle_uri uri
+ | DependenciesParser.InlineDep path ->
+ if Librarian.is_uri path
+ then handle_uri path else handle_script path
+ | DependenciesParser.IncludeDep path ->
+ handle_script path)