From f5394e4b3600610afab12ff2ba62f89df0630481 Mon Sep 17 00:00:00 2001
From: Joshua Clayton <joshua.clayton@gmail.com>
Date: Tue, 3 May 2016 05:13:58 -0400
Subject: [PATCH] Clear screen before displaying matches

---
 app/Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index eea963f..829140a 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -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