From 910862060743e78d15c71915bd6ba107537260e8 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Mon, 23 Oct 2017 15:29:12 -0400
Subject: [PATCH] :fire: redundant parens.

---
 src/RWS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/RWS.hs b/src/RWS.hs
index ee9af1575..9cdfc52e2 100644
--- a/src/RWS.hs
+++ b/src/RWS.hs
@@ -162,7 +162,7 @@ findNearestNeighbourTo canCompare kdTreeA kdTreeB term@(UnmappedTerm j _ b) = do
     -- Look up the nearest unmapped term in `unmappedA`.
     foundA@(UnmappedTerm i _ a) <- nearestUnmapped (nearAndComparableTo canCompare previous b unmappedA) kdTreeA term
     -- Look up the nearest `foundA` in `unmappedB`
-    UnmappedTerm j' _ _ <- nearestUnmapped ((nearAndComparableTo (flip canCompare) (pred j) a) unmappedB) kdTreeB foundA
+    UnmappedTerm j' _ _ <- nearestUnmapped (nearAndComparableTo (flip canCompare) (pred j) a unmappedB) kdTreeB foundA
     -- Return Nothing if their indices don't match
     guard (j == j')
     pure $! do