Cleanup LabelDoubleTree -> LDTree

src/Dodge/Data/ComposedItem.hs

@@ -6,7 +6,6 @@
 module Dodge.Data.ComposedItem where
 
 import Dodge.Data.AmmoType
-import Dodge.Data.DoubleTree
 import Control.Lens
 import Dodge.Data.Item
 
@@ -63,23 +62,6 @@ data ItemStructuralFunction
     | MapperSF
     deriving (Eq, Ord, Show, Read)
 
-type CItem = (Item, ItemStructuralFunction, LinkTest)
-
--- this should possibly use a full item structure tree rather than a
--- CItem as arguments
-data LinkTest = LTest
-    { _tryLeftLink :: LabelDoubleTree ItemLink CItem -> Maybe LinkUpdate
-    , _tryRightLink :: LabelDoubleTree ItemLink CItem -> Maybe LinkUpdate
-    }
-
-data LinkUpdate = LUpdate
-    { _luLinkType :: ItemLink
-    , _luParentUpdate :: CItem -> CItem
-    , _luChildUpdate :: CItem -> CItem
-    }
+type CItem = (Item, ItemStructuralFunction)
 
 makeLenses ''ItemLink
-makeLenses ''LinkTest
-makeLenses ''LinkUpdate
---deriveJSON defaultOptions ''ItemStructuralFunction
---deriveJSON defaultOptions ''ComposeLinkType