diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-24 22:28:38 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-24 22:42:34 +0530 |
| commit | 459488a2e777380fcb65e3b4dd355fe525ff77ca (patch) | |
| tree | bd21b71b73fc627d37e91e7800dd514706e49942 /specs/Specs/ViewSpec.hs | |
| parent | 70e3920556496e5fecb5fedddf1067b2522fcac7 (diff) | |
| download | chelleport-459488a2e777380fcb65e3b4dd355fe525ff77ca.tar.gz chelleport-459488a2e777380fcb65e3b4dd355fe525ff77ca.zip | |
Add search mode for text based searching with ocr
Diffstat (limited to 'specs/Specs/ViewSpec.hs')
| -rw-r--r-- | specs/Specs/ViewSpec.hs | 11 |
1 files changed, 1 insertions, 10 deletions
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 |