anchor.diff:             homeFolder = Some (FullName outDir)
           }
       let app =
  +      choose [
  +        Applicatives.path "/websocket" >>= handShake echo
           Writers.setHeader "Cache-Control" "no-cache, no-store, must-revalidate"
           >>= Writers.setHeader "Pragma" "no-cache"
           >>= Writers.setHeader "Expires" "0"
  -        >>= browseHome
  +        >>= browseHome ]
       startWebServerAsync serverConfig app |> snd |> Async.Start
       Process.Start "http://localhost:8083/index.html" |> ignore
   
  
positive.code:         match fi.Attributes.HasFlag FileAttributes.Hidden || fi.Attributes.HasFlag FileAttributes.Directory with
          | true -> ()
          | _ -> generateFor fi
  
  let startWebServer () =
      let serverConfig = 
  
negative.code:     | :? FileNotFoundException as exn ->
          traceImportant <| sprintf "Could not copy file: %s" exn.FileName
  
  let refreshEvent = new Event<_>()
  
  let handleWatcherEvents (events:FileChange seq) =
      for e in events do
          let fi = fileInfo e.FullPath
  