unisonweb/unison
View on GitHub`manageLinks` in `HandleInput` should have a stronger type
Open
#1,443 opened on Apr 20, 2020
help wantedtech debt
Description
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.