anchor.diff:          testStatus statusList valueList
               
       /// Replacement for single case discriminated union.
  -    let ZeroOrMoreConsumer<'a,'c,'d> (classifier: ClassifierStatus<'a> -> ClassifierResult<'a>) (status: ClassifierStatus<'a>) (continuation: ClassifierBuilderFunction<'a, string list, 'c>) =
  +    let ZeroOrMoreConsumer<'a,'c,'d> (classifier: ClassifierStatus<'a> -> ClassifierResult<'a>) =
           ZeroOrMore (classifierToBuilderFunction classifier)
           
       /// Replacement for single case discriminated union.
  
positive.code:         | Error _ -> (None, status) |> continuation
      
      /// Replacement for single case discriminated union.
      let ZeroOrOneConsumer<'a,'c,'d> (classifier: ClassifierStatus<'a> -> ClassifierResult<'a>) (status: ClassifierStatus<'a>) (continuation: ClassifierBuilderFunction<'a, string list, 'c>) =
          ZeroOrOne (classifierToBuilderFunction classifier)
  
  
  
negative.code:         testStatus statusList valueList
          
      /// Replacement for single case discriminated union.
      let OneOrMoreConsumer<'a,'c,'d> (classifier: ClassifierStatus<'a> -> ClassifierResult<'a>) =
          OneOrMore (classifierToBuilderFunction classifier)
  
      /// Replacement for single case discriminated union.
  