Defunction-ify item modules, requires more cleanup

src/Dodge/Creature/Impulse/Movement.hs

@@ -91,9 +91,3 @@ creatureTurnToward p turnSpeed cr
 {- | Speed modifier of an item when not aiming. -}
 equipSpeed :: Item -> Float
 equipSpeed _ = 1
-{- | Speed modifier of an item when aiming. -}
-equipAimSpeed :: Item -> Float -- TODO remove/rethink
-equipAimSpeed it 
-    | _itType it == FRONTARMOUR = 0.5
-    | _itType it == FLAMESHIELD = 0.5
-    | otherwise                     = 1