anchor.diff:      let generateFileContent (refLines: #seq<string>) =
           String.Join(Environment.NewLine, headerComment, String.Join(Environment.NewLine, refLines))
   
  -    let tryGetExistingFileRefs project fileName = 
  +    let getExistingFileRefs project fileName = 
           let filePath = getFullFilePathInScriptFolder project fileName  
           if File.Exists filePath then
               File.ReadLines filePath
               |> Seq.filter (fun (line: string) -> line.StartsWith "#r")
               |> Seq.toList
  -            |> Some
  -        else None
  +        else []
   
       let mergeRefs existing actual =
           // remove refs which don't actual anymore (they have been removed from the project)
  
positive.code:         sb.AppendLine(sprintf "#load @\"%s\"" scriptFile) |> ignore
          match filterTempAttributeFileName project (projectProvider :> IProjectProvider).SourceFiles with
          | [||] -> ()
          | sourceFiles ->
              sb.Append("#load ") |> ignore
              let relativePaths = sourceFiles |> Array.map (getRelativePath scriptFolder >> sprintf "@\"%s\"")
              sb.AppendLine(String.Join(Environment.NewLine + new String(' ', "#load ".Length), relativePaths)) |> ignore
  
negative.code:         project.Properties.Item("FullPath").Value.ToString()
  
      let getFullFilePathInScriptFolder project fileName = 
          let scriptFolder = getProjectFolder project </> scriptFolderName
          Directory.CreateDirectory scriptFolder |> ignore
          scriptFolder </> fileName
  
      let addFileToActiveProject(project: Project, fileName: string, content: string) = 
          if isFSharpProject project then
              let textFile = getFullFilePathInScriptFolder project fileName
              if not (File.Exists textFile) || File.ReadAllText textFile <> content then
                  use writer = File.CreateText textFile
                  writer.Write content 
  
              let isProjectDirty = ref false
              let projectFolderScript = 
                  project.ProjectItems.Item scriptFolderName
                  |> Option.ofNull
                  |> Option.getOrTry (fun _ ->
                      isProjectDirty := true
                      project.ProjectItems.AddFolder scriptFolderName)
              projectFolderScript.ProjectItems.Item fileName
              |> Option.ofNull
              |> function
                 | None ->
                     isProjectDirty := true
                     projectFolderScript.ProjectItems.AddFromFile textFile |> ignore
                 | _ -> ()
              if !isProjectDirty then project.Save()
  
      let getActiveProjectOutput (project: Project) =
          Option.attempt <| fun _ ->
  