Commit before moving button press events from events into your control

2022-06-29 12:12:45 +01:00
parent 5501d6f9b5
commit 4b8155ae16
8 changed files with 55 additions and 28 deletions
@@ -3,6 +3,5 @@ import Dodge.Item.Data

 moveHammerUp :: HammerPosition -> HammerPosition
 moveHammerUp HammerDown     = HammerReleased
-moveHammerUp HammerReleased = HammerUp
-moveHammerUp HammerUp       = HammerUp
+moveHammerUp _              = HammerUp