WIP

ImporterShared/Documents/Document.vb

@@ -35,6 +35,9 @@ Namespace Documents
             End Get
         End Property
 
+        Public Overrides Function Equals(obj As Object) As Boolean
+            Return FullName = DirectCast(obj, Document).FullName
+        End Function
 
         '    Public Type As DocumentType
         '    Public Data As Object