fix: type narrow on fields with multiple literals

Author: lewis6991

script/vm/tracer.lua

@@ -261,7 +261,7 @@ end
 --- @param source parser.object
 --- @param fieldName string
 --- @param literal parser.object
---- @return string[]?
+--- @return [string, boolean][]?
 local function getNodeTypesWithLiteralField(uri, source, fieldName, literal)
     local loc = vm.getVariable(source)
     if not loc then
@@ -279,7 +279,9 @@ local function getNodeTypesWithLiteralField(uri, source, fieldName, literal)
                             for _, t in ipairs(f.extends.types) do
                                 if t[1] == literal[1] then
                                   tys = tys or {}
-                                  table.insert(tys, set.class[1])
+                                  -- If the type is in a union (e.g. 'lit' | foo), then the outNode
+                                  -- cannot be narrowed.
+                                  table.insert(tys, {set.class[1], #f.extends.types > 1})
                                   break
                                 end
                             end
@@ -682,16 +684,16 @@ local lookIntoChild = util.switch()
 
                 -- TODO: handle more types
                 if tys and #tys == 1 then
-                    local ty = tys[1]
+                    local ty, tyInUnion = tys[1][1], tys[1][2]
                     topNode = topNode:copy()
                     if action.op.type == '==' then
                         topNode:narrow(tracer.uri, ty)
-                        if outNode then
+                        if not tyInUnion and outNode then
                             outNode:remove(ty)
                         end
                     else
                         topNode:remove(ty)
-                        if outNode then
+                        if not tyInUnion and outNode then
                             outNode:narrow(tracer.uri, ty)
                         end
                     end

test/type_inference/common.lua

@@ -4529,3 +4529,18 @@ if obj.type == 'a' then
     local <?r?> = obj
 end
 ]]
+
+TEST 'A|B' [[
+--- @class A
+--- @field mode? 'a' | 'b'
+
+--- @class B
+
+local a --- @type A | B
+
+if a.mode == 'a' then
+    local b = a
+else
+    local <?b?> = a
+end
+]]