Allow for assigning attach items orientations

src/Dodge/Data/ComposedItem.hs

@@ -41,8 +41,9 @@ data ItemStructuralFunction
     deriving (Eq, Ord, Show, Read)
 
 type PartiallyComposedItem lt = (Item, ItemStructuralFunction, LinkTest lt)
+type ComposedItem = (Item, ItemStructuralFunction)
 
-data ItemAttachment = IAttach
+data ItemLink = ILink
     { _iatType :: ComposeLinkType
     , _iatOrient :: Item -> Item -> Maybe (Point3, Quaternion Float)
     }
@@ -58,6 +59,7 @@ data LinkUpdate lt = LUpdate
     , _luChildUpdate :: PartiallyComposedItem lt -> PartiallyComposedItem lt
     }
 
+makeLenses ''ItemLink
 makeLenses ''LinkTest
 makeLenses ''LinkUpdate
 deriveJSON defaultOptions ''ComposeLinkType