diff --git a/src/Unused/CLI/Search.hs b/src/Unused/CLI/Search.hs
index 092f307..b3d7864 100644
--- a/src/Unused/CLI/Search.hs
+++ b/src/Unused/CLI/Search.hs
@@ -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