diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-20 20:45:11 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-20 20:45:11 +0530 |
| commit | 69f9c8ac053de7793c31c87572c9e044ae8369ee (patch) | |
| tree | e4d017be238d1064c274a33a55550fccc968d21b /specs/Specs/AppEventSpec.hs | |
| parent | 496c7d048df6a9a3650c0a0b996888decb4ea9d1 (diff) | |
| download | chelleport-69f9c8ac053de7793c31c87572c9e044ae8369ee.tar.gz chelleport-69f9c8ac053de7793c31c87572c9e044ae8369ee.zip | |
Minor refactor
Diffstat (limited to '')
| -rw-r--r-- | specs/Specs/AppEventSpec.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |