anchor.diff:      type ThunkServer (?endpoint : string) =
           
           let endpoint = defaultArg endpoint defaultConnectionString
  -
  -        static let vagrant = new Vagrant()
           
           let rec serverLoop (inbox : MailboxProcessor<ServerMsg>) = async {
               let! msg = inbox.Receive()
  
positive.code: ﻿module Nessos.Vagrant.Tests.ThunkServer
  
      open System
      open System.Reflection
      open System.Diagnostics
  
  
negative.code: 
      let private defaultConnectionString = "127.0.0.1:38979"
  
      let private vagrant =
          let cacheDir = Path.Combine(Path.GetTempPath(), sprintf "thunkServerCache-%O" <| Guid.NewGuid())
          let _ = Directory.CreateDirectory cacheDir
          new Vagrant(cacheDirectory = cacheDir)
  
      type private ServerMsg =
          | GetAssemblyLoadState of AssemblyId list * AsyncReplyChannel<AssemblyLoadInfo list>
          | LoadAssemblies of PortableAssembly list * AsyncReplyChannel<AssemblyLoadInfo list>
  