anchor.diff:          |> this.logResultSR
   
       //  [159]   http://www.yaml.org/spec/1.2/spec.html#ns-flow-yaml-node(n,c)
  -    member this.``ns-flow-yaml-node`` (ps:ParseState) : ParseFuncSingleResult =
  +    member this.``ns-flow-yaml-node`` (ps:ParseState) : ParseFuncSingleResult<_> =
           logger "ns-flow-yaml-node" ps
           let ``ns-flow-yaml-content`` psp =
               psp 
  
positive.code:         |   ErrorResult _ -> NoResult // ErrorResult(e)
  
  
      let PreserveErrorsMR _ (ct,pso) = 
          let outErrors = ct.Messages.Error //|> List.sort
          pso |> 
          function 
          |   Value (n1,n2,p) -> Value (n1,n2,p)
          |   NoResult    -> PreserveNoResult outErrors
          |   ErrorResult _ -> NoResult // ErrorResult(e)
  
  
      let AddErrorMessage m (ps:ParseState) = ps.AddErrorMessage m
      let AddErrorMessageList el (ps:ParseState) = (el |> List.fold(fun ps e -> ps |> AddErrorMessage e) ps)
      let AddWarningMessage m (ps:ParseState) = ps.AddWarningMessage m
  
negative.code:         |> this.logResultSR
  
      //  [155]   http://www.yaml.org/spec/1.2/spec.html#c-s-implicit-json-key(c)
      member this.``c-s-implicit-json-key`` (ps:ParseState) : ParseFuncSingleResult<_> = (* At most 1024 characters altogether *)
          logger "c-s-implicit-json-key" ps
  //        let ``n/a`` = 0
  //        let ps = ps.SetIndent ``n/a``
  