Remove creature move type record

src/Dodge/Creature/YourControl.hs

@@ -4,6 +4,7 @@ module Dodge.Creature.YourControl (
     yourControl,
 ) where
 
+import Dodge.Creature.MoveType
 import Dodge.Data.Equipment.Misc
 import Control.Monad
 import qualified Data.Map.Strict as M
@@ -118,7 +119,7 @@ scancodeToHotkey x = case x of
 wasdWithAiming :: World -> Creature -> Creature
 wasdWithAiming w cr = wasdAim inp w $ wasdMovement inp cam speed cr
   where
-    speed = _mvSpeed $ _crMvType cr
+    speed = _mvSpeed $ crMvType cr
     inp = w ^. input
     cam = w ^. wCam