File tree Expand file tree Collapse file tree 1 file changed +7
-4
lines changed
Expand file tree Collapse file tree 1 file changed +7
-4
lines changed Original file line number Diff line number Diff line change @@ -12545,15 +12545,18 @@ let TcTyconMemberSpecs cenv env containerInfo declKind tpenv (augSpfn: SynMember
1254512545let TcModuleOrNamespaceLidAndPermitAutoResolve tcSink env amap (longId: Ident list) =
1254612546 let ad = env.eAccessRights
1254712547 match longId with
12548- | [] -> Result []
12548+ | [] -> []
1254912549 | id :: rest ->
1255012550 let m = longId |> List.map (fun id -> id.idRange) |> List.reduce unionRanges
1255112551 match ResolveLongIndentAsModuleOrNamespace tcSink ResultCollectionSettings.AllResults amap m true OpenQualified env.eNameResEnv ad id rest true with
12552- | Result res -> Result res
12553- | Exception err -> raze err
12552+ | Result res -> res
12553+ | Exception err ->
12554+ errorR(err); []
1255412555
1255512556let TcOpenDecl tcSink (g: TcGlobals) amap m scopem env (longId: Ident list) =
12556- let modrefs = ForceRaise (TcModuleOrNamespaceLidAndPermitAutoResolve tcSink env amap longId)
12557+ match TcModuleOrNamespaceLidAndPermitAutoResolve tcSink env amap longId with
12558+ | [] -> env
12559+ | modrefs ->
1255712560
1255812561 // validate opened namespace names
1255912562 for id in longId do
You can’t perform that action at this time.
0 commit comments