Move stride/footforward datatypes

src/Dodge/Creature/Update.hs

@@ -101,7 +101,7 @@ checkDeath' cr w = case cr ^. crHP of
 
 toDeathCarriage :: Carriage -> Carriage
 toDeathCarriage = \case
-    Flying {} -> Falling 0 RightForward
+    Flying {} -> Falling
     x -> x
 
 -- could look at the amount of damage here (given by maxDamage) too
@@ -165,8 +165,8 @@ chasmTestLiving cr w
 
 startFalling :: Creature -> Creature
 startFalling cr = case cr ^. crStance . carriage of
-    Walking a b -> cr & crStance . carriage .~ Falling a b
-    _ -> cr & crStance . carriage .~ Falling 0 RightForward
+    Walking -> cr & crStance . carriage .~ Falling
+    _ -> cr & crStance . carriage .~ Falling
 
 chasmTestCorpse :: Creature -> World -> World
 chasmTestCorpse cr w