Unify some item updates

src/Dodge/Item/HeldOffset.hs

@@ -8,6 +8,7 @@ module Dodge.Item.HeldOffset (
     handHandleOrient,
 ) where
 
+import Dodge.DoubleTree
 import Dodge.Data.AimStance
 import Dodge.Data.ComposedItem
 import Dodge.Data.Creature
@@ -55,7 +56,7 @@ handOrient cr = case cr ^. crStance . posture of
 
 locOrient :: LocationLDT ItemLink OItem -> Creature -> Point3Q
 locOrient loc cr =
-    handHandleOrient (fmap (\(x, y, _) -> (x, y)) loc) cr
+    handHandleOrient (fmap (\(x, y, _) -> (x, y)) $ locToTop loc) cr
         `Q.comp` (loc ^. locLDT . ldtValue . _3)
 
 heldItemOffset :: LocationLDT ItemLink CItem -> Creature -> Point3 -> Point3