joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-09-11 04:45:28 +03:00
Code Issues Projects Releases Wiki Activity

Clear screen before displaying matches

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-03 05:13:58 -04:00
parent 31a569eef9
commit f5394e4b36
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
app/Main.hs
View File

@ -15,7 +15,8 @@ main = do
let response = parseLines $ unlines results let response = parseLines $ unlines results
case withOneOccurrence $ withOneFile response of case withOneOccurrence $ withOneFile response of
Right termMatchSet -> Right termMatchSet -> do
clearScreen
mapM_ printMatchPair $ listFromMatchSet termMatchSet mapM_ printMatchPair $ listFromMatchSet termMatchSet
Left e -> Left e ->
printParseError e printParseError e