14 lines
362 B
Haskell
14 lines
362 B
Haskell
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))
|