anchor.diff:          let reload fullPath =
               let src = File.ReadAllText fullPath
               let parsed = Parsing.ParseSource src subTemplatesHandling
  -            logfn "Reload:\n%s" src
               loaded.AddOrUpdate(baseName, parsed, fun _ _ -> parsed)
           let templates =
               match path with
  
positive.code:                             NotifyFilter = (NotifyFilters.LastWrite ||| NotifyFilters.Security ||| NotifyFilters.FileName),
                              EnableRaisingEvents = true)
                      let handler _ =
                          logfn "[WhenChanged] Reloading %s" fullPath
                          reload fullPath |> ignore
                      watcher.Changed.Add handler
                      watcher)
  
negative.code:             | ServerLoad.Once -> getOrLoadSrc src
              | ServerLoad.PerRequest ->
                  let fullPath = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, path)
                  Parsing.ParseSource (File.ReadAllText fullPath) subTemplatesHandling
              | ServerLoad.WhenChanged ->
                  let fullPath = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, path)
                  let watcher = watchers.GetOrAdd(baseName, fun _ ->
                      let dir = Path.GetDirectoryName fullPath
                      let file = Path.GetFileName fullPath
                      let watcher =
                          new FileSystemWatcher(
                              Path = dir,
  