diff options
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 |