anchor.diff:      |> replaceWithVarOrMsg "##Description##" "Project has no description; update build.fsx"
       |> replaceWithVarOrMsg "##Author##" "Update Author in build.fsx"
       |> replaceWithVarOrMsg "##Tags##" ""
  -    |> replaceWithVarOrMsg "##GitUrl##" defaultGirUrl
  -    |> replaceWithVarOrMsg "##GitRawUrl##" defaultGirRawUrl
  +    |> replaceWithVarOrMsg "##GitUrl##" defaultGitUrl
  +    |> replaceWithVarOrMsg "##GitRawUrl##" defaultGitRawUrl
       |> replaceWithVarOrMsg "##GitHome##" "Update GitHome in build.fsx"
       |> replaceWithVarOrMsg "##GitName##" projectName
   
  
positive.code:   |> replaceWithVarOrMsg "##Summary##" ""
    |> replaceWithVarOrMsg "##ProjectName##" ""
    |> replaceWithVarOrMsg "##Tags##" ""
    |> replaceWithVarOrMsg "##GitUrl##" defaultGirUrl
    |> replaceWithVarOrMsg "##GitRawUrl##" defaultGirRawUrl
    |> replaceWithVarOrMsg "##GitHome##" "[github-user]"
    |> replaceWithVarOrMsg "##GitName##" projectName
    |> overwrite file
  
negative.code: vars.["##Description##"] <- promptFor "Description (longer description used by NuGet)"
  vars.["##Author##"]      <- promptFor "Author"
  vars.["##Tags##"]        <- promptFor "Tags (separated by spaces)"
  vars.["##GitUrl##"]      <- promptFor (sprintf "Github url (leave blank to use \"%s\")" defaultGitUrl)
  vars.["##GitRawUrl##"]   <- promptFor (sprintf "Github raw url (leave blank to use \"%s\")" defaultGitRawUrl)
  vars.["##GitHome##"]     <- promptFor "Github User or Organization"
  vars.["##GitName##"]     <- promptFor "Github Project Name (leave blank to use Project Name)"
  
  