Skip to content
Snippets Groups Projects
Commit 9686d502 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Comment.

parent 9de48e78
No related branches found
No related tags found
No related merge requests found
...@@ -503,6 +503,8 @@ resolveBuildTarget ppinfo opinfo userTarget = ...@@ -503,6 +503,8 @@ resolveBuildTarget ppinfo opinfo userTarget =
expected = [ (thing, got) expected = [ (thing, got)
| (_, MatchErrorExpected thing got) | (_, MatchErrorExpected thing got)
<- map (innerErr Nothing) errs ] <- 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 $ nosuch = Map.foldrWithKey genResults [] $ Map.fromListWith Set.union $
[ ((inside, thing, got), Set.fromList alts) [ ((inside, thing, got), Set.fromList alts)
| (inside, MatchErrorNoSuch thing got alts) <- map (innerErr Nothing) errs | (inside, MatchErrorNoSuch thing got alts) <- map (innerErr Nothing) errs
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment