anchor.diff:      let modifiers = List.empty
       let typeparams = List.empty
       let signature = fields |> List.map (fun field -> formatType field.FieldType) |> String.concat " * "
  -    let loc = defaultArg case.ImplementationLocation case.DeclarationLocation
  +    let loc = tryGetLocation case
       let location = formatSourceLocation ctx.SourceFolderRepository loc
       MemberOrValue.Create(usage, modifiers, typeparams, signature, location)
   
  
positive.code:     let modifiers = List.empty
      let typeparams = List.empty
      let signature = formatType staticParam.Kind + (if staticParam.IsOptional then sprintf " (optional, default = %A)" staticParam.DefaultValue else "")
      let loc = defaultArg staticParam.ImplementationLocation staticParam.DeclarationLocation
      let location = formatSourceLocation ctx.SourceFolderRepository loc
      MemberOrValue.Create(usage, modifiers, typeparams, signature, location)
  
  
negative.code:         UniqueUrlName = nameGen; 
          SourceFolderRepository = sourceFolderRepo }
  
    let formatSourceLocation (sourceFolderRepo : (string * string) option) (location : range option) =
      location |> Option.bind (fun location ->
          sourceFolderRepo |> Option.map (fun (baseFolder, repo) -> 
              let basePath = Uri(Path.GetFullPath(baseFolder)).ToString()
              let docPath = Uri(Path.GetFullPath(location.FileName)).ToString()
  
              // Even though ignoring case might be wrong, we do that because
              // one path might be file:///C:\... and the other file:///c:\...  :-(
              if not <| docPath.StartsWith(basePath, StringComparison.InvariantCultureIgnoreCase) then
                  Log.logf "Error occurs. Current source file '%s' doesn't reside in source folder '%s'" docPath basePath
                  ""
              else
                  let relativePath = docPath.[basePath.Length..]
                  let uriBuilder = UriBuilder(repo)
                  uriBuilder.Path <- uriBuilder.Path + relativePath
                  String.Format("{0}#L{1}-{2}", uriBuilder.Uri, location.StartLine, location.EndLine) ) )
  
    let (|AllAndLast|_|) (list:'T list)= 
      if list.IsEmpty then None
  