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

Refactor in preparation for progress bar

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-02 06:03:26 -04:00
parent 6ee18cf1c9
commit dcfaa9355e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/Main.hs
View File

@ -8,7 +8,7 @@ import Unused.Types
main :: IO ()
main = do
terms <- pure . lines =<< getContents
results <- pure . concat =<< mapM search terms
results <- executeSearch terms
let response = parseLines $ unlines results
case withOneOccurrence $ withOneFile response of
@ -19,6 +19,11 @@ main = do
return ()
executeSearch :: [String] -> IO [String]
executeSearch terms = do
results <- mapM search terms
return $ concat results
printMatchPair :: (String, [TermMatch]) -> IO ()
printMatchPair (term', matches) = do
setSGR [SetColor Foreground Vivid Red]