anchor.diff:      |> List.append lines
   
     let projectName = "SuaveMusicStore"
  -  let scriptOutName = Path.Combine ( __SOURCE_DIRECTORY__, projectName )
     let _,_,outName = parseFirstMsgLine (Seq.head msg)
  +  let scriptOutName = Path.Combine ( __SOURCE_DIRECTORY__, "temp", outName, projectName )
  +  CleanDir (Path.GetDirectoryName scriptOutName)
     write(scriptOutName + ".fsx", lines)
  -  Literate.ProcessScriptFile(scriptOutName + ".fsx",lineNumbers = false, fsiEvaluator = fsi)
  +  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)
  
positive.code: open Suave.Sockets.AsyncSocket
  open Suave.WebSocket
  
  let outDir = "out"
  
  let repo = getBuildParamOrDefault "repo" __SOURCE_DIRECTORY__
  let githubAccount = "theimowski"
  
negative.code:         |> Seq.toList
        files, dlls
      | None ->
        tracefn "No fsproj for commit %s" commit
        [], []
  
    refDlls
  