Refactor, try to limit dependencies

This commit is contained in:
2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
+15 -14
View File
@@ -1,21 +1,22 @@
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
module Dodge.Data.RadarBlip where
import GHC.Generics
import Data.Aeson
import Color
import Geometry
import Control.Lens
import Data.Aeson
import Data.Aeson.TH
import Geometry
data RadarBlip = RadarBlip
{ _rbColor :: Color
, _rbTime :: Int
, _rbMaxTime :: Int
, _rbRad :: Float
, _rbPos :: Point2
{ _rbColor :: Color
, _rbTime :: Int
, _rbMaxTime :: Int
, _rbRad :: Float
, _rbPos :: Point2
}
deriving (Eq,Ord,Show,Read,Generic)
instance ToJSON RadarBlip where
toEncoding = genericToEncoding defaultOptions
instance FromJSON RadarBlip
deriving (Eq, Ord, Show, Read)
makeLenses ''RadarBlip
deriveJSON defaultOptions ''RadarBlip