help wantedtech debt
描述
The current type of this function is:
manageLinks :: [(Path', NameSegment.HQSegment)]
-> [HQ.HashQualified]
-> (forall r. Ord r
=> (r, Reference, Reference)
-> Branch.Star r NameSegment
-> Branch.Star r NameSegment)
-> Action m (Either Event Input) v ()
Since it takes names rather than references, it has to parse those names. This is probably OK for now, but may run into strange corner cases later.