Commit before attempting to simplify creature update

2025-10-17 10:36:19 +01:00
parent c533e88d24
commit f969056912
4 changed files with 4 additions and 34 deletions
@@ -22,10 +22,7 @@ data Stance = Stance
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 data Carriage
-    = Walking
-        { _strideAmount :: Float
-        , _currentFoot :: FootForward
-        }
+    = Walking { _strideAmount :: Float , _currentFoot :: FootForward }
    | Standing
    | Floating
    | Flying