anchor.diff:          tryClassifier classifiers
           
       /// Replacement for single case discriminated union.
  -    let PickOneConsumer<'a,'c,'d> (classifiers: (ClassifierStatus<'a> -> ClassifierResult<'a>) list) (status: ClassifierStatus<'a>) (continuation: ClassifierBuilderFunction<'a, string, 'c>) =
  +    let PickOneConsumer<'a,'c,'d> (classifiers: (ClassifierStatus<'a> -> ClassifierResult<'a>) list) =
           PickOne (classifiers |> List.map classifierToBuilderFunction)
           
       /// 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.
  