{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
module Dodge.Data.PosEvent where
import Geometry.Data
import Control.Lens

data PosEventType = SparkSpawner

data PosEvent = PosEvent
    { _pvType   :: PosEventType
    , _pvTimer  :: Int
    , _pvPos    :: Point2
    }
makeLenses ''PosEvent