Move stride/footforward datatypes

src/Dodge/Data/Creature/Misc.hs

@@ -6,6 +6,7 @@ module Dodge.Data.Creature.Misc (
     module Dodge.Data.CamouflageStatus,
 ) where
 
+import Dodge.Data.Creature.Stance
 import Color
 import Control.Lens
 import Data.Aeson
@@ -50,8 +51,13 @@ data CreatureType
         , _avIntelligence :: Int
         , _avMoveSpeed :: Float
         , _avPosture :: AvatarPosture
+        , _footForward :: FootForward
+        , _strideAmount :: Float
+        }
+    | ChaseCrit {_meleeCooldown :: Int
+        , _footForward :: FootForward
+        , _strideAmount :: Float
         }
-    | ChaseCrit {_meleeCooldown :: Int}
     | HoverCrit {_meleeCooldown :: Int}
     | SwarmCrit
     | AutoCrit

src/Dodge/Data/Creature/Stance.hs

@@ -19,11 +19,11 @@ data Stance = Stance
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Carriage
-    = Walking {_strideAmount :: Float, _footForward :: FootForward}
+    = Walking 
     | Floating
     | Flying {_zSpeed :: Float, _flyInertia :: Float}
     | Boosting Point2
-    | Falling {_fallFlail :: Float, _fallFoot :: FootForward}
+    | Falling 
     | OnGround
     deriving (Eq, Ord, Show, Read) --Generic, Flat)