anchor.diff:          |> Option.map List.ofSeq
           |> fun x -> defaultArg x []
       
  -    let private getOptionalInfo (map : Map<string, string>, currentVersion) = 
  +    let private getOptionalInfo (fileName, map : Map<string, string>, currentVersion) = 
           let get (n : string) = Map.tryFind (n.ToLowerInvariant()) map
   
           let title = get "title"
  
positive.code:           RequireLicenseAcceptance = requireLicenseAcceptance
            Tags = tags
            DevelopmentDependency = developmentDependency
            Dependencies = getDependencies(map,currentVersion)
            References = getReferences map
            FrameworkAssemblyReferences = getFrameworkReferences map
            Files = getFiles map }
  
negative.code:                 | Choice2Of2 f -> failP file f
              sr.Dispose()
              let! type' = parsePackageConfigType file map
  
              let currentVersion = 
                  match currentVersion with
                  | None -> Map.tryFind "version" map |> Option.map SemVer.Parse
                  | _ -> currentVersion
  
              match type' with
              | ProjectType -> 
                  let core : ProjectCoreInfo = 
  