From f51fbc728e4b731372e39ba19c38a35ef58fe71a Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Sat, 21 Dec 2024 22:18:50 +0530 Subject: Add action repetition --- specs/Specs/ViewSpec.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'specs/Specs/ViewSpec.hs') diff --git a/specs/Specs/ViewSpec.hs b/specs/Specs/ViewSpec.hs index 62b49fd..285c297 100644 --- a/specs/Specs/ViewSpec.hs +++ b/specs/Specs/ViewSpec.hs @@ -14,6 +14,7 @@ test = do stateIsShiftPressed = False, stateIsMatched = False, stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]], + stateRepetition = 1, stateIsDragging = False } let drawTextCalls = filter (\case CallDrawText {} -> True; _ -> False) . calls -- cgit v1.3.1