From d6587dafbbc20b711efd51391ef89e38c01cc789 Mon Sep 17 00:00:00 2001
From: Steven Troxler <stroxler@fb.com>
Date: Thu, 13 May 2021 11:06:11 -0700
Subject: [PATCH] Fix excessive-free-point-style lint errors on Rank.hs

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

Reviewed By: chessai

Differential Revision: D28411898

fbshipit-source-id: d18b9ef5db99b82d150231080c89f812f709f409
---
 Duckling/Ranking/Rank.hs | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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