From db10b79f931c2cafc24dba3379fb35d65523ef7f Mon Sep 17 00:00:00 2001
From: Joshua Clayton <joshua.clayton@gmail.com>
Date: Mon, 23 May 2016 08:18:43 -0400
Subject: [PATCH] Extract results printing to separate function

---
 app/Main.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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