From 459488a2e777380fcb65e3b4dd355fe525ff77ca Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Tue, 24 Dec 2024 22:28:38 +0530
Subject: Add search mode for text based searching with ocr

---
 specs/Specs/ViewSpec.hs | 11 +----------
 1 file changed, 1 insertion(+), 10 deletions(-)

(limited to 'specs/Specs/ViewSpec.hs')

diff --git a/specs/Specs/ViewSpec.hs b/specs/Specs/ViewSpec.hs
index b8418d6..39e7fea 100644
--- a/specs/Specs/ViewSpec.hs
+++ b/specs/Specs/ViewSpec.hs
@@ -8,16 +8,7 @@ import TestUtils
 
 test :: SpecWith ()
 test = do
-  let defaultState =
-        State
-          { stateKeySequence = [],
-            stateIsShiftPressed = False,
-            stateIsMatched = False,
-            stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]],
-            stateRepetition = 1,
-            stateIsDragging = False,
-            stateMode = ModeHints
-          }
+  let defaultState = defaultAppState {stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]]}
   let drawTextCalls = filter (\case Mock_drawText {} -> True; _ -> False) . calls
 
   describe "#render" $ do
-- 
cgit v1.3.1