{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.Gust where

import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import Geometry.Data

data Gust = Gust
    { _guID :: Int
    , _guPos :: Point2
    , _guVel :: Point2
    , _guTime :: Int
    }
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

makeLenses ''Gust
deriveJSON defaultOptions ''Gust