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