From 568923344f0941b2771459dd8dbe935ac971a968 Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Sat, 28 Dec 2024 14:53:58 +0530 Subject: Allow clicking with enter --- specs/Specs/ViewSpec.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'specs/Specs/ViewSpec.hs') diff --git a/specs/Specs/ViewSpec.hs b/specs/Specs/ViewSpec.hs index 79c8173..f3cfdf2 100644 --- a/specs/Specs/ViewSpec.hs +++ b/specs/Specs/ViewSpec.hs @@ -3,12 +3,13 @@ module Specs.ViewSpec where import Chelleport.Config import Chelleport.Types import Chelleport.View +import Data.Default (Default (def)) import Test.Hspec import TestUtils test :: SpecWith () test = do - let defaultState = defaultAppState {stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]]} + let defaultState = def {stateGrid = [["ABC", "DEF"], ["DJK", "JKL"]]} describe "#render" $ do context "when key sequence is empty" $ do -- cgit v1.3.1