Commit 9686d502 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Comment.

parent 9de48e78
......@@ -503,6 +503,8 @@ resolveBuildTarget ppinfo opinfo userTarget =
expected = [ (thing, got)
| (_, MatchErrorExpected thing got)
<- map (innerErr Nothing) errs ]
-- Trim the list of alternatives by dropping duplicates and
-- retaining only at most three most similar (by edit distance) ones.
nosuch = Map.foldrWithKey genResults [] $ Map.fromListWith Set.union $
[ ((inside, thing, got), Set.fromList alts)
| (inside, MatchErrorNoSuch thing got alts) <- map (innerErr Nothing) errs
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment