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

Hide cursor while analysis is being run

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-06 05:24:00 -04:00
parent 4175effffb
commit 88a1be8c32
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -12,8 +12,9 @@ data SearchRunner = SearchWithProgress | SearchWithoutProgress
executeSearch :: SearchRunner -> [String] -> IO [String]
executeSearch runner terms = do
resetScreen
hideCursor
printAnalysisHeader terms
runSearch runner terms <* resetScreen
runSearch runner terms <* resetScreen <* showCursor
printAnalysisHeader :: [String] -> IO ()
printAnalysisHeader terms = do