mirror of
https://github.com/joshuaclayton/unused.git
synced 2024-09-11 04:45:28 +03:00
Pull whitespace handling to each searcher
This commit is contained in:
parent
e895420eb5
commit
3a63276834
@ -27,7 +27,7 @@ printAnalysisHeader terms = do
|
||||
setSGR [SetColor Foreground Dull Green]
|
||||
putStr $ show $ length terms
|
||||
setSGR [Reset]
|
||||
putStr " terms\n\n"
|
||||
putStr " terms"
|
||||
|
||||
runSearch :: SearchRunner -> ([String] -> IO [String])
|
||||
runSearch SearchWithProgress = searchWithProgressBar
|
||||
|
@ -8,6 +8,7 @@ import Unused.TermSearch (search)
|
||||
|
||||
searchWithProgressBar :: [String] -> IO [String]
|
||||
searchWithProgressBar terms = do
|
||||
putStr "\n\n"
|
||||
(bar, tid) <- buildProgressBar $ toInteger $ length terms
|
||||
concat <$> mapM (performSearch bar) terms <* killThread tid
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user