Extend trigger type to apply to full item location

src/Dodge/BaseTriggerType.hs

@@ -2,15 +2,21 @@
 
 module Dodge.BaseTriggerType (
     itemTriggerType,
+    baseItemTriggerType,
     module Dodge.Data.TriggerType,
 ) where
 
+import Dodge.Data.ComposedItem
+import Dodge.Data.DoubleTree
 import Control.Lens
 import Dodge.Data.Item
 import Dodge.Data.TriggerType
 
-itemTriggerType :: Item -> TriggerType
-itemTriggerType itm = case itm ^. itType of
+itemTriggerType :: LocationLDT ItemLink OItem -> TriggerType
+itemTriggerType loc = baseItemTriggerType $ loc ^. locLDT . ldtValue . _1
+
+baseItemTriggerType :: Item -> TriggerType
+baseItemTriggerType itm = case itm ^. itType of
     HELD hit -> heldTriggerType hit
     _ -> NoTrigger