Fix at least one bug from item refactor, more remain

src/Dodge/Creature/HandPos.hs

@@ -15,7 +15,7 @@ module Dodge.Creature.HandPos (
     headPQ,
 ) where
 
-import Dodge.Data.Equipment.Misc
+--import Dodge.Data.Equipment.Misc
 import qualified Data.IntMap.Strict as IM
 import qualified Quaternion as Q
 import Control.Lens
@@ -27,13 +27,13 @@ import ShapePicture
 translatePointToRightHand :: IM.IntMap Item -> Creature -> Point3 -> Point3
 translatePointToRightHand m cr p =  fst (rightHandPQ m cr `Q.comp` (p,Q.qID))
 
-equipSitePQ :: EquipSite -> IM.IntMap Item -> Creature -> Point3Q
-equipSitePQ = \case
-    OnRightWrist -> rightHandPQ
-    OnLeftWrist -> leftHandPQ
-    OnBack -> backPQ
-    OnChest -> chestPQ
-    _ -> undefined
+--equipSitePQ :: EquipSite -> IM.IntMap Item -> Creature -> Point3Q
+--equipSitePQ = \case
+--    OnRightWrist -> rightHandPQ
+--    OnLeftWrist -> leftHandPQ
+--    OnBack -> backPQ
+--    OnChest -> chestPQ
+--    _ -> undefined
 
 rightHandPQ :: IM.IntMap Item -> Creature -> Point3Q
 rightHandPQ m cr