Simplify item composition structure

src/Dodge/Data/ComposedItem.hs

@@ -10,7 +10,7 @@ import Dodge.Data.DoubleTree
 import Control.Lens
 import Dodge.Data.Item
 
-data CLinkType
+data ItemLink
     = AmmoInLink Int AmmoType
     | TriggerLink
     | AmmoModLink
@@ -65,12 +65,6 @@ data ItemStructuralFunction
 
 type CItem = (Item, ItemStructuralFunction, LinkTest)
 
-data ItemLink = ILink
-    { _iatType :: CLinkType
---    , _iatOrient :: Item -> CLinkType -> Item -> (Point3, Quaternion Float)
---    , _iatOrient :: Item -> CLinkType -> (Point3, Quaternion Float)
-    }
-
 -- this should possibly use a full item structure tree rather than a
 -- CItem as arguments
 data LinkTest = LTest
@@ -87,6 +81,5 @@ data LinkUpdate = LUpdate
 makeLenses ''ItemLink
 makeLenses ''LinkTest
 makeLenses ''LinkUpdate
-makeLenses ''CLinkType
 --deriveJSON defaultOptions ''ItemStructuralFunction
 --deriveJSON defaultOptions ''ComposeLinkType