Commit d3fb0e0a authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

80-col violations.

parent 9686d502
......@@ -507,7 +507,8 @@ resolveBuildTarget ppinfo opinfo userTarget =
-- 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
| (inside, MatchErrorNoSuch thing got alts)
<- map (innerErr Nothing) errs
]
genResults (inside, thing, got) alts acc = (
......@@ -522,7 +523,8 @@ resolveBuildTarget ppinfo opinfo userTarget =
$ Set.toList alts
) : acc
where
addLevDist = id &&& restrictedDamerauLevenshteinDistance defaultEditCosts got
addLevDist = id &&& restrictedDamerauLevenshteinDistance
defaultEditCosts got
distanceLow (_, dist) = dist < length got `div` 2
......@@ -563,7 +565,8 @@ disambiguateBuildTargets matcher matchInput exactMatch matchResults =
-- So, here's the strategy. We take the original match results, and make a
-- table of all their renderings at all qualification levels.
-- Note there can be multiple renderings at each qualification level.
matchResultsRenderings :: [(BuildTarget PackageInfo, [UserBuildTargetFileStatus])]
matchResultsRenderings :: [(BuildTarget PackageInfo,
[UserBuildTargetFileStatus])]
matchResultsRenderings =
[ (matchResult, matchRenderings)
| matchResult <- matchResults
......
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