Move line handling to occur when binding to results

This commit is contained in:
Joshua Clayton 2016-05-15 08:05:41 -04:00
parent 0e966c9302
commit e70a7e4e0b

View File

@ -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