Fix bug in attached item position orienting

2024-10-02 22:57:10 +01:00
parent 6bcd5bc591
commit 49ffbfafc2
8 changed files with 105 additions and 97 deletions
@@ -44,7 +44,7 @@ type ComposedItem = (Item, ItemStructuralFunction)

 data ItemLink = ILink
    { _iatType :: ComposeLinkType
-    , _iatOrient :: Item -> ComposeLinkType -> Item -> Maybe (Point3, Quaternion Float)
+    , _iatOrient :: Item -> ComposeLinkType -> Item -> (Point3, Quaternion Float)
    }

 data LinkTest lt = LTest