23 lines
437 B
Haskell
23 lines
437 B
Haskell
{-# LANGUAGE StrictData #-}
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
module Dodge.Data.Bounds where
|
|
|
|
import Control.Lens
|
|
import Data.Aeson
|
|
import Data.Aeson.TH
|
|
|
|
data Bounds = Bounds
|
|
{ _bdMinX :: Float
|
|
, _bdMaxX :: Float
|
|
, _bdMinY :: Float
|
|
, _bdMaxY :: Float
|
|
}
|
|
deriving (Eq, Ord, Show, Read) --Generic, Flat)
|
|
|
|
defaultBounds :: Bounds
|
|
defaultBounds = Bounds 0 0 0 0
|
|
|
|
makeLenses ''Bounds
|
|
deriveJSON defaultOptions ''Bounds
|