facebook/duckling
1
1
Fork 0
mirror of https://github.com/facebook/duckling.git synced 2024-09-11 21:27:13 +03:00
Code Issues Packages Projects Releases Wiki Activity

Fix excessive-free-point-style lint errors on Rank.hs

Browse Source 
Summary: Just replace `.` with `$`, also tweaked the spacing a bit for skimmability

Reviewed By: chessai

Differential Revision: D28411898

fbshipit-source-id: d18b9ef5db99b82d150231080c89f812f709f409
This commit is contained in:
Steven Troxler 2021-05-13 11:06:11 -07:00 committed by Facebook GitHub Bot
parent 3eafced0fa
commit d6587dafbb
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Duckling/Ranking/Rank.hs
View File

@ -57,9 +57,10 @@ rank
-> [ResolvedToken] -> [ResolvedToken]
-> [ResolvedToken] -> [ResolvedToken]
rank classifiers targets tokens = rank classifiers targets tokens =
Set.toList . Set.fromList Set.toList
. map (\(Candidate token _ _) -> token) $ Set.fromList
. winners $ map (\(Candidate token _ _) -> token)
$ winners
$ map makeCandidate tokens $ map makeCandidate tokens
where where
makeCandidate :: ResolvedToken -> Candidate makeCandidate :: ResolvedToken -> Candidate