anchor.diff:    open Buckaroo.Result
   
     [<Literal>]
  -  let MaxConsecutiveFailures = 5
  +  let MaxConsecutiveFailures = 10
   
     type LocatedAtom = Atom * PackageLocation
   
  
positive.code:                 privatePackagesSolutions
                  |> AsyncSeq.map(addPrivatePackageSolution newState package resolvedVersion)
                  |> AsyncSeq.collect (step context strategy)
                  |> recoverOrFail newState log
                  |> recoverOrFail state log
                  |> AsyncSeq.scan
                       (fun (failures, _) resolution ->
                         match resolution with
  
negative.code:         |> Map.ofSeq
    }
  
    let private recoverOrFail atom state log resolutions =
      resolutions
      |> AsyncSeq.map (fun resolution ->
          match resolution with
          | Resolution.Backtrack (s, f) ->
            log("trying to recover from: " + f.ToString() + " [" + atom.ToString() + "]" |> text, LoggingLevel.Info)
            if state.Constraints.ContainsKey f.Package &&
              match f.Constraint with
              | All xs -> xs |> List.forall state.Constraints.[f.Package].Contains
  