mirror of
https://github.com/joshuaclayton/unused.git
synced 2024-08-15 15:50:26 +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
|
||||
|
||||
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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user