anchor.diff:        "suave_reload.js" ]
       |> Copy outDir
       CopyDir (outDir </> "en") "en" (fun _ -> true)
  +    CleanDir "temp"
       commits
       |> Seq.iter (fun (commitHash,body) ->
         let fileName = markdownFileName body
  
positive.code: open Suave.Sockets.AsyncSocket
  open Suave.WebSocket
  
  let outDir = "out"
  
  let repo = getBuildParamOrDefault "repo" __SOURCE_DIRECTORY__
  let githubAccount = "theimowski"
  
negative.code:     |> List.append lines
  
    let projectName = "SuaveMusicStore"
    let _,_,outName = parseFirstMsgLine (Seq.head msg)
    let scriptOutName = Path.Combine ( __SOURCE_DIRECTORY__, "temp", outName, projectName )
    CleanDir (Path.GetDirectoryName scriptOutName)
    write(scriptOutName + ".fsx", lines)
    tracefn "processing %s.fsx..." scriptOutName
    Literate.ProcessScriptFile(scriptOutName + ".fsx",lineNumbers = false)
    let rawHtml = File.ReadAllText (scriptOutName + ".html")
  
    let html = XDocument.Parse ("<root>" + rawHtml + "</root>", LoadOptions.PreserveWhitespace)
  