Remove creature move type record

src/Dodge/Creature/Impulse.hs

@@ -4,6 +4,7 @@ module Dodge.Creature.Impulse (
     impulsiveAIBefore,
 ) where
 
+import Dodge.Creature.MoveType
 import Data.Foldable
 import Control.Monad.State
 import Data.Bifunctor
@@ -76,7 +77,7 @@ followImpulse cr w imp = case imp of
             creatureTurnToward p (turnRad $ safeAngleVV (p -.- cpos) (unitVectorAtAngle cdir)) cr
   where
     crup = (id,)
-    mvType = _crMvType cr
+    mvType = crMvType cr
     speed = _mvSpeed mvType
     turnRad = doFloatFloat $ _mvTurnRad mvType
     cpos = _crPos cr