changed dictionary keys from VBComponent to QualifiedModuleName

Author: retailcoder

Rubberduck.Parsing/VBA/RubberduckParserState.cs

@@ -63,6 +63,9 @@ public sealed class RubberduckParserState
         private readonly ConcurrentDictionary<QualifiedModuleName, IList<CommentNode>> _comments =
             new ConcurrentDictionary<QualifiedModuleName, IList<CommentNode>>();
 
+        private readonly ConcurrentDictionary<QualifiedModuleName, IList<IAnnotation>> _annotations =
+            new ConcurrentDictionary<QualifiedModuleName, IList<IAnnotation>>();
+        
         private readonly ConcurrentDictionary<QualifiedModuleName, SyntaxErrorException> _moduleExceptions =
             new ConcurrentDictionary<QualifiedModuleName, SyntaxErrorException>();
 
@@ -252,7 +255,7 @@ public IEnumerable<IAnnotation> AllAnnotations
         public IEnumerable<IAnnotation> GetModuleAnnotations(VBComponent component)
         {
             IList<IAnnotation> result;
-            if (_annotations.TryGetValue(component, out result))
+            if (_annotations.TryGetValue(new QualifiedModuleName(component), out result))
             {
                 return result;
             }
@@ -262,7 +265,7 @@ public IEnumerable<IAnnotation> GetModuleAnnotations(VBComponent component)
 
         public void SetModuleAnnotations(VBComponent component, IEnumerable<IAnnotation> annotations)
         {
-            _annotations[component] = annotations.ToList();
+            _annotations[new QualifiedModuleName(component)] = annotations.ToList();
         }
 
         /// <summary>