anchor.diff:      with
       | exn -> ()
   
  -let rec annotateDirectoryNode (ownerType: ProvidedTypeDefinition) (dir: DirectoryInfo) propertyName withParent relative ctx () =
  -    watch dir.FullName ctx
  +let rec annotateDirectoryNode (ownerType: ProvidedTypeDefinition) (dir: DirectoryInfo) propertyName withParent relative watch ctx () =
  +    if watch then
  +        watchDir dir.FullName ctx
  +
       ownerType.HideObjectMethods <- true
       ownerType.AddXmlDoc(sprintf "A strongly typed interface to '%s'" dir.FullName)
   
  
positive.code:                 match relative with
                  | Some sourcePath -> Some((fixDirectoryPath sourcePath) + "..\\")
                  | None -> None
              ownerType.AddMemberDelayed (createDirectoryNode typeSet dir.Parent ".." withParent relative ctx)
          with
          | exn -> ()
  
  
negative.code:                     | _ -> Some relativePath
                  match Directory.Exists(path) with
                  | false -> failwith (sprintf "Specified directory [%s] could not be found" path)
                  | true -> createRootType typeName dir false relative watch ctx
              | _ -> failwith "Wrong static parameters to type provider"))
              
      typedFileSystem
  