anchor.diff:      Repository.cloneSingleBranch "" (gitHome + "/" + gitName + ".git") "gh-pages" tempDocsDir
   
       fullclean tempDocsDir
  -    CopyRecursive "output" tempDocsDir true |> tracefn "%A"
  +    CopyRecursive outDir tempDocsDir true |> tracefn "%A"
       StageAll tempDocsDir
       Git.Commit.Commit tempDocsDir "Update generated slides"
       Branches.push tempDocsDir
  
positive.code:     Process.Start "http://localhost:8083/index.html" |> ignore
  
  Target "GenerateSlides" (fun _ ->
      !! (__SOURCE_DIRECTORY__ @@ "slides/*.md")
        ++ (__SOURCE_DIRECTORY__ @@ "slides/*.fsx")
      |> Seq.map fileInfo
      |> Seq.iter generateFor
  )
  
  Target "KeepRunning" (fun _ ->
      use watcher = new FileSystemWatcher(DirectoryInfo(__SOURCE_DIRECTORY__ @@ "slides").FullName,"*.*")
      watcher.EnableRaisingEvents <- true
      watcher.IncludeSubdirectories <- true
      watcher.Changed.Add(handleWatcherEvents)
  
negative.code: open Suave.Http.Files
  
  let outDir = __SOURCE_DIRECTORY__ @@ "output"
  let slidesDir = __SOURCE_DIRECTORY__ @@ "slides"
  
  Target "Clean" (fun _ ->
      CleanDirs [outDir]
  