anchor.diff:  
   let copyPics() =
       try
  -      !! "slides/images/*.*"
  +      !! (__SOURCE_DIRECTORY__ @@ "slides/images/*.*")
         |> CopyFiles (outDir @@ "images")
       with
       | exn -> traceImportant <| sprintf "Could not copy picture: %s" exn.Message    
  
positive.code: open Suave.Http
  open Suave.Http.Files
  
  let outDir = "output"
  
  Target "Clean" (fun _ ->
      CleanDirs [outDir]
  
negative.code: )
  
  Target "ReleaseSlides" (fun _ ->
      let tempDocsDir = __SOURCE_DIRECTORY__ @@ "temp/gh-pages"
      CleanDir tempDocsDir
      Repository.cloneSingleBranch "" (gitHome + "/" + gitName + ".git") "gh-pages" tempDocsDir
  
  