Partial removal of reloading

src/Dodge/Creature/Test.hs

@@ -7,7 +7,7 @@ in fact a creature with that id need not exist.
 -}
 module Dodge.Creature.Test (
     crIsAiming,
-    crIsReloading,
+--    crIsReloading,
     crIsArmouredFrom,
     oneH,
     twists,
@@ -33,10 +33,10 @@ import Dodge.Base.Collide
 import Dodge.Data.World
 import Geometry
 
-crIsReloading :: Creature -> Bool
-crIsReloading cr = case cr ^? crManipulation . manObject . inInventory . iselAction of
-    Just ReloadAction{} -> True
-    _ -> False
+--crIsReloading :: Creature -> Bool
+--crIsReloading cr = case cr ^? crManipulation . manObject . inInventory . iselAction of
+--    Just ReloadAction{} -> True
+--    _ -> False
 
 -- Assumes the ammotype below the selected item is correct
 crWeaponReady :: Creature -> Bool