diff --git a/Duckling/Ranking/Rank.hs b/Duckling/Ranking/Rank.hs index add27b8b..87fde52a 100644 --- a/Duckling/Ranking/Rank.hs +++ b/Duckling/Ranking/Rank.hs @@ -57,9 +57,10 @@ rank -> [ResolvedToken] -> [ResolvedToken] rank classifiers targets tokens = - Set.toList . Set.fromList - . map (\(Candidate token _ _) -> token) - . winners + Set.toList + $ Set.fromList + $ map (\(Candidate token _ _) -> token) + $ winners $ map makeCandidate tokens where makeCandidate :: ResolvedToken -> Candidate