mirror of
https://github.com/joshuaclayton/unused.git
synced 2024-09-11 04:45:28 +03:00
Move line handling to occur when binding to results
This commit is contained in:
parent
0e966c9302
commit
e70a7e4e0b
@ -35,8 +35,8 @@ run options = do
|
|||||||
hSetBuffering stdout NoBuffering
|
hSetBuffering stdout NoBuffering
|
||||||
|
|
||||||
terms <- pure . lines =<< getContents
|
terms <- pure . lines =<< getContents
|
||||||
results <- executeSearch (oSearchRunner options) terms
|
results <- unlines <$> executeSearch (oSearchRunner options) terms
|
||||||
let response = parseLines $ unlines results
|
let response = parseLines results
|
||||||
|
|
||||||
resetScreen
|
resetScreen
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user