anchor.diff:          File.WriteAllText(filePath, packageContents)
           packageFilename
   
  +    member __.GetSiteRootFolder() =
  +        let asm = Assembly.GetAssembly(host.GetType())
  +        let dir = (new FileInfo(asm.Location)).Directory.FullName
  +        Path.Combine(dir, "..")
  +
       interface IDisposable with
           member x.Dispose() =
               writer.Dispose()
  
positive.code: open System
  open System.IO
  open Chauffeur.Host
  
  module ChauffeurSetup =
      open System.Reflection
      open System.Text.RegularExpressions
  
      let private cwd = FileInfo(Assembly.GetExecutingAssembly().Location).Directory.FullName
  
negative.code:     /// Gets the path on disk that Chauffeur would look for packages/delivery/etc. files within.
      /// This is the path that Chauffeur will resolve from its settings API internally.
      /// </summary>
      member __.GetChauffeurFolder() =
          let chauffeurFolder = Path.Combine [| dbFolder; "Chauffeur" |]
  
          match (Directory.Exists chauffeurFolder) with
  