anchor.diff:          |> this.logResultSR
   
       //  [140]   http://www.yaml.org/spec/1.2/spec.html#c-flow-mapping(n,c)
  -    member this.``c-flow-mapping`` (ps:ParseState) : ParseFuncSingleResult =
  +    member this.``c-flow-mapping`` (ps:ParseState) : ParseFuncSingleResult<_> =
           logger "c-flow-mapping" ps
           ps |> ParseState.``Match and Advance`` ((RGP "\\{") + OPT(this.``s-separate`` ps)) (fun prs ->
               let prs = prs.SetStyleContext(this.``in-flow`` prs)
  
positive.code:         |> this.logResultSR
              
      //  [141]   http://www.yaml.org/spec/1.2/spec.html#ns-s-flow-map-entries(n,c)
      member this.``ns-s-flow-map-entries`` (ps:ParseState) : ParseFuncSingleResult =
          logger "ns-s-flow-map-entries" ps
          let rec ``ns-s-flow-map-entries`` (psp:ParseState) (lst:(Node*Node) list) : ParseFuncSingleResult =
              let noResult rs psr =
                  if lst.Length = 0 then rs   // empty sequence
                  else CreateMapNode (NonSpecific.NonSpecificTagQT) (getParseInfo ps psr) (lst |> List.rev) |> this.ResolveTag psr NonSpecificQT
  
              match (this.``ns-flow-map-entry`` psp) with
              |   Value (ck, cv, prs) ->
                  let lst = (ck, cv) :: lst
                  let prs = prs.SkipIfMatch (OPT(this.``s-separate`` prs))
                  let commaPattern = (RGP ",") + OPT(this.``s-separate`` prs)
  
negative.code: 
                  (psp.FullIndented) |> ParseState.``Match and Advance`` (this.``s-indent(n)`` psp.FullIndented) (this.``ns-l-block-map-entry``)
                  |>  function
                      |   Value((ck, cv), prs)  ->  ``l+block-mapping`` prs ((ck,cv) :: acc)
                      |   NoResult            ->  contentOrNone NoResult psp
                      |   ErrorResult e       -> psp |> ParseState.AddErrorMessageList e |> contentOrNone (ErrorResult e)
              let ps = ps.SetSubIndent m
  