Remove creature move type record

src/Dodge/Creature/Info.hs

@@ -2,6 +2,7 @@ module Dodge.Creature.Info (
     yourInfo,
 ) where
 
+import Dodge.Creature.Statistics
 import Dodge.Inventory.CheckSlots
 import Dodge.Data.Creature
 import LensHelp
@@ -28,8 +29,8 @@ yourStatsInfo cr =
     "You are " ++ statsModifier str "weak" "strength" "strong" ++ conj
         ++ statsModifier dex "clumsy." "dexterity." "dexterous."
   where
-    str = cr ^. crStatistics . strength
-    dex = cr ^. crStatistics . dexterity
+    str = cr & crStrength
+    dex = cr & crDexterity
     conj
         | (str < 45 && dex < 45) || (str > 55 && dex > 55) || (mid str && mid dex) =
             " and "