anchor.diff:                    match state.OutputMode with
                     | Text ->
                         printAgent.WriteLine "DATA: completion"
  -                      for d in decls.Items do printAgent.WriteLine(sprintf "%s:%d" d.Name d.Glyph)
  +                      for d in decls.Items do printAgent.WriteLine(sprintf "%s" d.Name)
                         printAgent.WriteLine "<<EOF>>"
                         main state
                     | Json ->
  
positive.code: type CompletionResponse = 
    {
      Name: string
      Glyph: int
    }
  
  type ProjectResponse =
  
negative.code:                                   prAsJson { Kind = "helptext"; Data = helptext }
  
                        prAsJson { Kind = "completion"
                                   Data = [ for d in decls.Items do 
                                              let (glyph, glyphChar) = CompletionUtils.getIcon d.Glyph
                                              yield { Name = d.Name; Glyph = glyph; GlyphChar = glyphChar } ] }
  
                        let helptext =
                          Seq.fold (fun m (d: FSharpDeclarationListItem) -> Map.add d.Name d.DescriptionText m) Map.empty decls.Items
  