diff --git a/src/Unused/TermSearch.hs b/src/Unused/TermSearch.hs
index 244a27d..11c068b 100644
--- a/src/Unused/TermSearch.hs
+++ b/src/Unused/TermSearch.hs
@@ -9,7 +9,7 @@ search t = do
     results <- ag t
     return $ linesMap prefixTerm results
   where
-    prefixTerm = (++ t)
+    prefixTerm = ((++) t)
 
 linesMap :: (String -> String) -> String -> [String]
 linesMap f =