diff --git a/app/Main.hs b/app/Main.hs
index 8a90348..323b9a5 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -53,11 +53,13 @@ run options = withoutCursor $ do
 
             resetScreen
 
-            either printParseError (printSearchResults . groupedResponses (oGrouping options)) $
-                fmap (optionFilters options) response
+            either printParseError (printResults options) response
 
     return ()
 
+printResults :: Options -> TermMatchSet -> IO ()
+printResults options = printSearchResults . groupedResponses (oGrouping options) . optionFilters options
+
 loadLanguageConfig :: IO [LanguageConfiguration]
 loadLanguageConfig = either (const []) id <$> loadConfig