mirror of
https://github.com/joshuaclayton/unused.git
synced 2024-09-11 04:45:28 +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
|
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
|
||||||
|
Loading…
Reference in New Issue
Block a user