First implementation of pulse lasers

src/Dodge/BaseTriggerType.hs

@@ -6,6 +6,7 @@ module Dodge.BaseTriggerType (
     module Dodge.Data.TriggerType,
 ) where
 
+import Dodge.PulseLaser
 import Dodge.Data.ComposedItem
 import Dodge.Data.DoubleTree
 import Control.Lens
@@ -13,7 +14,9 @@ import Dodge.Data.Item
 import Dodge.Data.TriggerType
 
 itemTriggerType :: LocationDT OItem -> TriggerType
-itemTriggerType loc = baseItemTriggerType $ loc ^. locDT . dtValue . _1
+itemTriggerType loc 
+    | isPulseLaser loc = HammerTrigger 9
+    | otherwise = baseItemTriggerType $ loc ^. locDT . dtValue . _1
 
 baseItemTriggerType :: Item -> TriggerType
 baseItemTriggerType itm = case itm ^. itType of