From 558c4ed2f4b2101aa2961dab9d1969086a06d7a5 Mon Sep 17 00:00:00 2001
From: Joshua Clayton <joshua.clayton@gmail.com>
Date: Wed, 4 May 2016 21:26:01 -0400
Subject: [PATCH] Remove unnecessary parens

---
 src/Unused/TermSearch.hs | 4 ++--
 src/Unused/Types.hs      | 4 ++--
 src/Unused/Util.hs       | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/Unused/TermSearch.hs b/src/Unused/TermSearch.hs
index 6841ad7..244a27d 100644
--- a/src/Unused/TermSearch.hs
+++ b/src/Unused/TermSearch.hs
@@ -9,13 +9,13 @@ search t = do
     results <- ag t
     return $ linesMap prefixTerm results
   where
-    prefixTerm = ((++) t)
+    prefixTerm = (++ t)
 
 linesMap :: (String -> String) -> String -> [String]
 linesMap f =
     filter empty . map f . lines
   where
-    empty = ((/=) 0) . length
+    empty = (/= 0) . length
 
 ag :: String -> IO String
 ag t = do
diff --git a/src/Unused/Types.hs b/src/Unused/Types.hs
index 20d9555..0f7fbb1 100644
--- a/src/Unused/Types.hs
+++ b/src/Unused/Types.hs
@@ -107,10 +107,10 @@ responseForPath s =
     filterVByPath . filterKVByPath
   where
     filterVByPath = Map.map (updateMatchesWith newMatches)
-    filterKVByPath = Map.filterWithKey (\_ a -> s `elem` allPaths a)
+    filterKVByPath = Map.filterWithKey (const $ \a -> s `elem` allPaths a)
     allPaths = fmap (fileNameGrouping . tmPath) . trMatches
     updateMatchesWith f tr = tr { trMatches = f tr }
-    newMatches = (filter (((==) s) . fileNameGrouping . tmPath) . trMatches)
+    newMatches = (filter ((== s) . fileNameGrouping . tmPath) . trMatches)
 
 fileNameGrouping :: String -> DirectoryPrefix
 fileNameGrouping =
diff --git a/src/Unused/Util.hs b/src/Unused/Util.hs
index 1b0e3f3..50e171f 100644
--- a/src/Unused/Util.hs
+++ b/src/Unused/Util.hs
@@ -8,5 +8,5 @@ groupBy :: Eq b => (a -> b) -> [a] -> [(b, [a])]
 groupBy f l =
     fmap (\t -> (t, byTerm t)) uniqueTerms
   where
-    byTerm t = filter (((==) t) . f) l
+    byTerm t = filter ((== t) . f) l
     uniqueTerms = nub $ fmap f l