From 69f9c8ac053de7793c31c87572c9e044ae8369ee Mon Sep 17 00:00:00 2001 From: Akshay Nair Date: Fri, 20 Dec 2024 20:45:11 +0530 Subject: Minor refactor --- specs/Specs/AppEventSpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'specs/Specs/AppEventSpec.hs') diff --git a/specs/Specs/AppEventSpec.hs b/specs/Specs/AppEventSpec.hs index 18e685b..3cdbe94 100644 --- a/specs/Specs/AppEventSpec.hs +++ b/specs/Specs/AppEventSpec.hs @@ -39,7 +39,7 @@ test = do context "when space key is pressed" $ do it "triggers left mouse button click" $ do let action = eventHandler $ mkKeyboardEvent SDL.KeycodeSpace SDL.Pressed - action `shouldBe` Just TriggerLeftClick + action `shouldBe` Just (TriggerMouseClick LeftClick) context "when tab key is pressed" $ do it "resets key state" $ do -- cgit v1.3.1