From e70a7e4e0b5b4b29c006cd5140dde5b9b4e22aa0 Mon Sep 17 00:00:00 2001
From: Joshua Clayton <joshua.clayton@gmail.com>
Date: Sun, 15 May 2016 08:05:41 -0400
Subject: [PATCH] Move line handling to occur when binding to results

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

diff --git a/app/Main.hs b/app/Main.hs
index 487bbd2..78a13ae 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -35,8 +35,8 @@ run options = do
     hSetBuffering stdout NoBuffering
 
     terms <- pure . lines =<< getContents
-    results <- executeSearch (oSearchRunner options) terms
-    let response = parseLines $ unlines results
+    results <- unlines <$> executeSearch (oSearchRunner options) terms
+    let response = parseLines results
 
     resetScreen