anchor.diff:                      | _ -> Some relativePath
                   match Directory.Exists(path) with
                   | false -> failwith (sprintf "Specified directory [%s] could not be found" path)
  -                | true -> createRootType typeName dir false relative ctx
  +                | true -> createRootType typeName dir false relative watch ctx
               | _ -> failwith "Wrong static parameters to type provider"))
               
       typedFileSystem
  
positive.code: 
      ownerType 
  
  and createDirectoryNode typeSet (dir: DirectoryInfo) propertyName withParent relative ctx =
      annotateDirectoryNode (ProvidedTypeDefinition(propertyName, Some typeof<obj>)) dir propertyName withParent relative ctx
  
  let createRootType typeName (dir: DirectoryInfo) withParent relative ctx =
      annotateDirectoryNode (erasedType<obj> thisAssembly rootNamespace typeName) dir dir.FullName withParent relative ctx ()
      
  let createRelativePathSystem (resolutionFolder: string) ctx =
      let relativeFileSystem = erasedType<obj> thisAssembly rootNamespace "RelativePath"
  
      relativeFileSystem.DefineStaticParameters(
          parameters = [ ProvidedStaticParameter("relativeTo", typeof<string>)], 
          instantiationFunction = (fun typeName parameterValues ->
              match parameterValues with
              | [| :? string as relativePath |] ->                 
                  let folder = 
                      match relativePath with
                      | "" | "." -> Path.GetFullPath(resolutionFolder)
                      | _ -> Path.GetFullPath(Path.Combine(resolutionFolder, relativePath))
                  match Directory.Exists(folder) with
                  | false -> failwith (sprintf "Specified directory [%s] could not be found" folder)
                  | true -> createRootType typeName (new DirectoryInfo(folder)) true (Some folder) ctx
              | _ -> failwith "Wrong static parameters to type provider"))
              
      relativeFileSystem
  
negative.code:     let typedFileSystem = erasedType<obj> thisAssembly rootNamespace "FileSystem"
  
      typedFileSystem.DefineStaticParameters(
          parameters = 
              [ ProvidedStaticParameter("path", typeof<string>)
                ProvidedStaticParameter("relativeTo", typeof<string>, "")
                ProvidedStaticParameter("watch", typeof<bool>, false) ], 
          instantiationFunction = (fun typeName parameterValues ->
              match parameterValues with
              | [| :? string as path; :? string as relativePath; :? bool as watch |] -> 
                  let dir = new DirectoryInfo(path)
                  let relative = 
                      match relativePath with
  