mirror of
https://github.com/joshuaclayton/unused.git
synced 2024-08-15 15:50:26 +03:00
Clear screen before displaying matches
This commit is contained in:
parent
31a569eef9
commit
f5394e4b36
@ -15,7 +15,8 @@ main = do
|
||||
let response = parseLines $ unlines results
|
||||
|
||||
case withOneOccurrence $ withOneFile response of
|
||||
Right termMatchSet ->
|
||||
Right termMatchSet -> do
|
||||
clearScreen
|
||||
mapM_ printMatchPair $ listFromMatchSet termMatchSet
|
||||
Left e ->
|
||||
printParseError e
|
||||
|
Loading…
Reference in New Issue
Block a user