module Dodge.IsPulseLaser (
    isPulseLaser,
) where

import Control.Lens
import Dodge.Data.ComposedItem
import Dodge.Data.DoubleTree
import Dodge.Data.Item

isPulseLaser :: LocationDT OItem -> Bool
isPulseLaser loc =
    loc ^. locDT . dtValue . _1 . itType == LASER
        && (loc ^? locDT . dtLeft . ix 0 . dtValue . _1 . itType == Just (ATTACH CAPACITOR))