anchor.diff:  
   let private UnnamedFieldRegex = Regex("^Item[\d+]?$", RegexOptions.Compiled)
   
  -let private formatCase (ctxt: Context)
  -    writePipeBefore (case: FSharpUnionCase) =
  +let private formatCase (ctxt: Context) (case: FSharpUnionCase) =
       let writer = ctxt.Writer
       let name = 
           if ctxt.RequireQualifiedAccess then
  
positive.code:             |> sprintf "(%s)"
      
      writer.WriteLine("")
  
      if writePipeBefore then
          writer.Write("| {0}{1} -> {2}", name, paramsPattern, ctxt.CaseDefaultValue)
      else
          writer.Write("{0}{1} -> {2}", name, paramsPattern, ctxt.CaseDefaultValue)
  
  let formatMatchExpr insertionParams (caseDefaultValue: string)
                      (patMatchExpr: PatternMatchExpr) (entity: FSharpEntity) =
  
negative.code: 
      writer.Indent insertionParams.IndentColumn
  
      casesToWrite
      |> Seq.iter (formatCase ctxt)
  
      writer.Dump()
  