anchor.diff:  
   type DiagnosticsType =
       | Debug of string
  +    | GeneralError of string * string
   
   [<AutoOpen>]
   module Diagnostics_ =
  
positive.code: 
      interface ICodeGenerator with
          member x.GenerateAsync(applyTo: MemberDeclarationSyntax, document: Document, progress: IProgress<Diagnostic>, ct) =
  //            System.AppDomain.CurrentDomain.GetAssemblies()
  //            |> Seq.filter (fun asm -> not asm.IsDynamic)
  //            |> Seq.map (fun asm -> sprintf "%s: %s" (asm.GetName().Name) asm.Location)
  //            |> String.concat System.Environment.NewLine
  //            |> Debug
  //            |> Diagnostics.create (applyTo.GetLocation())
  //            |> progress.Report
  
              let parseSampleData =
                  JsonProviderArgs.create
                  >> JsonProviderBridge.parseDataType
  
negative.code:                     description = null,
                      helpLinkUri = null
                  )
              | GeneralError (title, message) ->
                  DiagnosticDescriptor(
                      "TPCS002",
                      title,
                      message,
                      "",
                      DiagnosticSeverity.Error,
                      isEnabledByDefault = true,
                      description = null,
                      helpLinkUri = null
                  )
          let create location diagnosticsType = 
              Diagnostic.Create(toDescriptor diagnosticsType, location)
  
  