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