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

Render base header as soon as we have tokens

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-15 08:35:27 -04:00
parent e70a7e4e0b
commit 790b62c999
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/Main.hs
View File

@ -7,7 +7,7 @@ import Unused.Parser (parseLines)
import Unused.Types (ParseResponse, RemovalLikelihood(..))
import Unused.ResponseFilter (withOneOccurrence, withLikelihoods, ignoringPaths)
import Unused.Grouping (CurrentGrouping(..), groupedResponses)
import Unused.CLI (SearchRunner(..), executeSearch, printParseError, printSearchResults, resetScreen, withInterruptHandler)
import Unused.CLI (SearchRunner(..), renderHeader, executeSearch, printParseError, printSearchResults, resetScreen, withInterruptHandler)
data Options = Options
{ oSearchRunner :: SearchRunner
@ -35,7 +35,10 @@ run options = do
hSetBuffering stdout NoBuffering
terms <- pure . lines =<< getContents
renderHeader terms
results <- unlines <$> executeSearch (oSearchRunner options) terms
let response = parseLines results
resetScreen

9
src/Unused/CLI/Search.hs
View File

@ -1,5 +1,6 @@
module Unused.CLI.Search
( SearchRunner(..)
, renderHeader
, executeSearch
) where
@ -9,11 +10,15 @@ import Unused.CLI.ProgressIndicator
data SearchRunner = SearchWithProgress | SearchWithoutProgress
executeSearch :: SearchRunner -> [String] -> IO [String]
executeSearch runner terms = do
renderHeader :: [String] -> IO ()
renderHeader terms = do
resetScreen
hideCursor
printAnalysisHeader terms
executeSearch :: SearchRunner -> [String] -> IO [String]
executeSearch runner terms = do
renderHeader terms
runSearch runner terms <* resetScreen <* showCursor
printAnalysisHeader :: [String] -> IO ()