anchor.diff:  open Paket.Domain
   open Paket.Logging
   
  -let internal (|Complete|Incomplete|) templateFile =
  +let internal (|CompleteTemplate|IncompleteTemplate|) templateFile = 
       match templateFile with
  -    | { Contents = (CompleteInfo (core, optional)) } ->
  -        Complete (core, optional)
  -    | _ ->
  -        Incomplete
  +    | { Contents = (CompleteInfo(core, optional)) } -> CompleteTemplate(core, optional)
  +    | _ -> IncompleteTemplate
   
   let internal pack outputPath templateFile =
       match templateFile with
  -    | Complete (core, optional) ->
  +    | CompleteTemplate(core, optional) ->
           NupkgWriter.Write core optional (Path.GetDirectoryName templateFile.FileName) outputPath
  -    | Incomplete ->
  +    | IncompleteTemplate ->
           failwithf "There was an attempt to pack incomplete template file %s" templateFile.FileName
   
   let (|Title|Description|Version|InformationalVersion|Company|Ignore|) (att : obj) =
  
positive.code:     let complete, incomplete =
          templates
          |> List.ofSeq
          |> List.partition (function Complete _ -> true | Incomplete -> false)
  
      // load up project files and grab meta data
      let projectTemplates =
  
negative.code: 
  let internal toDep (t : TemplateFile) =
      match t with
      | CompleteTemplate(core, opt) ->
          core.Id, VersionRequirement(Minimum (core.Version), PreReleaseStatus.All)
      | IncompleteTemplate ->
          failwith "You cannot create a dependency on a template file with incomplete metadata."
  
  let internal addDep (t: TemplateFile) (d : string * VersionRequirement) =
      match t with
      | CompleteTemplate(core, opt) ->
          let deps = 
              match opt.Dependencies with
              | Some ds -> Some (d::ds)
              | None -> Some [d]
          { FileName = t.FileName; Contents = CompleteInfo (core, { opt with Dependencies = deps }) }
      | IncompleteTemplate ->
          failwith "You should only try and add dependencies to template files with complete metadata."
  
  let internal toFile config targetDir (p : ProjectFile) =
  