anchor.diff:  
   
   module HashDirectiveInfo =
  -    
  +    open System.IO
       type IncludeDirective =
           | ResolvedDirectory of string
   
       type LoadDirective =
           | ExistingFile of string
  -        | UnresolvableFile of string * (* previous includes *) string array
  +        | UnresolvableFile of string * previousIncludes : string array
   
       [<NoComparison>]
       type Directive =
  
positive.code: 
                                  else
  
                                      // match first include which seemingly have the file found
                                      let maybeDirectory =
                                          includesSoFar 
                                          |> Seq.tryFind (
                                              function
                                              | ResolvedDirectory d -> combinePaths d f |> fileExists
                                              | _ -> false                                      
                                          )
                                      match maybeDirectory with
                                      | None -> () // can't load this file even using any of the #I directives...
                                      | Some (ResolvedDirectory d) ->
                                          yield Load ((ExistingFile (combinePaths d f), range))
  
                      | _ -> ()
              |]
  
negative.code:     /// returns the Some (complete file name of a resolved #load directive at position) or None
      let getHashLoadDirectiveResolvedPathAtPosition (pos: pos) (ast: ParsedInput) : string option =
          let l = pos.Line
          let directive =
              getIncludeAndLoadDirectives ast
              |> Array.tryFind (function
                  | Load(ExistingFile _, range)
                    // check the line is within the range
                    // (doesn't work when there are multiple files given to a single #load directive)
                    when range.StartLine <= l && range.EndLine >= l
                      -> true
                  | _ -> false
              )
          match directive with
          | Some ( Load( ExistingFile f, _) ) -> Some f
          | _ -> None