Pull whitespace handling to each searcher

src/Unused/CLI/Search.hs

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

src/Unused/CLI/SearchWithProgress.hs

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