anchor.diff:  ﻿module Nessos.Vagrant.Tests.ThunkServer
   
       open System
  +    open System.IO
       open System.Reflection
       open System.Diagnostics
   
  
positive.code:     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()
  
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>
  