Cleanup

src/Dodge/Creature/HandPos.hs

@@ -36,14 +36,6 @@ equipSitePQ = \case
 translatePointToRightHand :: Creature -> Point3 -> Point3
 translatePointToRightHand cr p =  fst (rightHandPQ cr `Q.comp` (p,Q.qID))
 
---equipSitePQ :: EquipSite -> IM.IntMap Item -> Creature -> Point3Q
---equipSitePQ = \case
---    OnRightWrist -> rightHandPQ
---    OnLeftWrist -> leftHandPQ
---    OnBack -> backPQ
---    OnChest -> chestPQ
---    _ -> undefined
-
 rightHandPQ :: Creature -> Point3Q
 rightHandPQ cr
     | oneH cr = (V3 11 (-3) 20, Q.qID)