anchor.diff:                  path
               else
                   let parent = dir.Parent
  -                if parent = null then
  +                match parent with
  +                | null ->
                       if withError then
                           failwithf "Could not find '%s'. To use Paket with this solution, please run 'paket init' first." Constants.DependenciesFileName
                       else
                           Constants.DependenciesFileName
  -                else
  -                   findInPath(parent, withError)
  +                | _ -> findInPath(parent, withError)
   
           let dependenciesFileName = findInPath(DirectoryInfo path,true)
           verbosefn "found: %s" dependenciesFileName
  
positive.code:     let listPackages (packages: System.Collections.Generic.KeyValuePair<GroupName*PackageName, PackageResolver.ResolvedPackage> seq) =
          packages
          |> Seq.map (fun kv ->
                  let groupName,packageName = kv.Key                
                  groupName.ToString(),packageName.ToString(),kv.Value.Version.ToString())
          |> Seq.toList
  
  
negative.code:         let cancellationToken = defaultArg cancellationToken (System.Threading.CancellationToken())
          let maxResults = defaultArg maxResults 1000
          let sources = this.GetSources() |> Seq.map (fun kv -> kv.Value) |> List.concat |> List.distinct
          match sources with
          | [] -> [PackageSources.DefaultNugetSource]
          | _ -> sources
          |> List.choose (fun x -> match x with | Nuget s -> Some s.Url | _ -> None)
          |> Seq.distinct
          |> Seq.map (fun url ->
  