anchor.diff:                              yield! CodeGeneration.generateCreationMethods dataType sampleData
                           ]
                       with e ->
  +                        GeneralError ("Error while generating code", e.Message)
  +                        |> Diagnostics.create (applyTo.GetLocation())
  +                        |> progress.Report
  +
                           reraise()
  -                        //progress.Report(...)
  +
                           []
  -
   
                   let partialClass =
                       SyntaxFactory
  
positive.code:                     description = null,
                      helpLinkUri = null
                  )
          let create location diagnosticsType = 
              Diagnostic.Create(toDescriptor diagnosticsType, location)
  
  
negative.code: 
      interface ICodeGenerator with
          member x.GenerateAsync(applyTo: MemberDeclarationSyntax, document: Document, progress: IProgress<Diagnostic>, ct) =
              let parseSampleData =
                  JsonProviderArgs.create
                  >> JsonProviderBridge.parseDataType
  