Globally assign attachment orientations

src/Dodge/Creature/State.hs

@@ -3,6 +3,7 @@ module Dodge.Creature.State (
     doDamage,
 ) where
 
+import Dodge.Item.Orientation
 import Dodge.Item.UseDelay
 import Control.Applicative
 import Control.Monad
@@ -294,9 +295,9 @@ chainLinkOrientation ::
     ItemLink ->
     CItem ->
     (Point3, Q.Quaternion Float)
-chainLinkOrientation (p, q) par (ILink lt f) child = (p + Q.rotate q p1, q * q1)
+chainLinkOrientation (p, q) par (ILink lt) child = (p + Q.rotate q p1, q * q1)
   where
-    (p1, q1) = f (par ^. _1) lt (child ^. _1)
+    (p1, q1) = orientAttachment (par ^. _1) lt (child ^. _1)
 
 updateItemWithOrientation ::
     Creature ->