From a3ff74727bded92872a1f0a88f9ba23a790900f4 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 5 Feb 2023 21:47:37 +0000
Subject: Keep the jumping frame when hitting the floor

---
 src/Game/Entities.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Game/Entities.hs b/src/Game/Entities.hs
index b232854..fc22a38 100644
--- a/src/Game/Entities.hs
+++ b/src/Game/Entities.hs
@@ -106,7 +106,7 @@ applyGravity v e
       && (isBlocked (x + 2) (y + 24) || isBlocked (x + 12) (y + 24))
       && not (isBlocked (x + 2) (y + 23))
       && not (isBlocked (x + 12) (y + 23)) =
-      e {eGravity = gravityOff, eDelay = 0, eFrame = 0}
+      e {eGravity = gravityOff, eDelay = 0}
   | otherwise = applyGravity (v - 1) e {eY = y + change}
   where
     gravity = eGravity e
-- 
cgit v1.2.3