anchor.diff:          let attributes = node.Attributes
           match attributes.GetNamedItem DirectoryAttributeName with
           | null -> None
  -        | directoryPath ->
  +        | directory ->
               let searchOption =
                   match attributes.GetNamedItem RecursiveAttributeName with
                   | null -> SearchOption.TopDirectoryOnly
  
positive.code:                                       PackageName = node.ParentNode.Name })
                                  filePaths
                          Some <| List.ofArray assets
                      with exn -> debug <| "Invalid folder path '" + directoryPath.InnerText + "'."; None
  
      /// Attempt to load all the assets from a package Xml node.
      let tryLoadAssetsFromPackageNode optAssociation (node : XmlNode) =
  
negative.code:                 | associations ->
                      let converter = StringListTypeConverter ()
                      let associations = converter.ConvertFromString associations.InnerText :?> string list
                      try let filePaths = Directory.GetFiles (directory.InnerText, "*." + extension.InnerText, searchOption)
                          let assets =
                              Array.map
                                  (fun filePath ->
  