Something went wrong. Try again.
Git-native issue tracker
Something went wrong. Try again.
852 B · 24 lines
OCaml
at main
12345678910111213141516171819202122232425type input = { row : string; package : string; anchor : Tracker.Core.Anchor.t }
let location (loc : Tracker.Anchor.location) = let address = Git_outline.Address.of_string loc.address in Git_outline.Address.path address ^ ":" ^ string_of_int loc.range.start_line
let resolve ~cache ~sources inputs = let index = Tracker.Anchor.index ~cache sources in List.map (fun input -> let state = match Tracker.Anchor.resolve index input.anchor with | Tracker.Anchor.Exact loc -> `Exact (location loc) | Tracker.Anchor.Edited loc -> `Edited (location loc) | Tracker.Anchor.Moved loc -> `Moved (location loc) | Tracker.Anchor.Gone -> `Gone in { View.row = input.row; package = input.package; at = Tracker.Core.Anchor.at input.anchor; state; }) inputs