joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-08-15 15:50:26 +03:00
Code Issues Projects Releases Wiki Activity

Print message when no results are found

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-12 05:25:53 -04:00
parent 95fc86eaef
commit b90cddf460
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/Unused/CLI/SearchResult.hs
View File

@ -11,13 +11,17 @@ import Unused.CLI.Util
printSearchResults :: TermMatchSet -> IO ()
printSearchResults termMatchSet =
mapM_ (printDirectorySection columnFormat) responses
printFormattedResponses columnFormat responses
where
responses = responsesGroupedByPath termMatchSet
allSets = listFromMatchSet =<< map snd responses
allResults = map snd allSets
columnFormat = buildColumnFormatter allResults
printFormattedResponses :: ColumnFormat -> [(DirectoryPrefix, TermMatchSet)] -> IO ()
printFormattedResponses _ [] = printNoResultsFound
printFormattedResponses cf r = mapM_ (printDirectorySection cf) r
listFromMatchSet :: TermMatchSet -> [(String, TermResults)]
listFromMatchSet =
Map.toList
@ -72,3 +76,10 @@ printMatches cf r ms =
printNumber = cfPrintNumber cf
termColor = likelihoodColor . rLikelihood . trRemoval
removalReason = rReason . trRemoval
printNoResultsFound :: IO ()
printNoResultsFound = do
setSGR [SetColor Foreground Dull Green]
setSGR [SetConsoleIntensity BoldIntensity]
putStrLn "Unused found no results"
setSGR [Reset]