Go back to JSON encoding

This commit is contained in:
2022-08-21 21:23:59 +01:00
parent dd62e30026
commit f1ef75f511
95 changed files with 9 additions and 586 deletions
-4
View File
@@ -8,9 +8,6 @@ module Dodge.Data.RadarSweep (
module Dodge.Data.ObjectType,
) where
import TH.Derive
import Data.Store
import Data.Binary
import Flat
import LinearHelp ()
import Control.Lens
@@ -26,7 +23,6 @@ data RadarSweep = RadarSweep
, _rsTimer :: Int
}
deriving (Eq, Ord, Show, Read, Generic, Flat)
$($(derive [d| instance Deriving (Store RadarSweep ) |]))
makeLenses ''RadarSweep
deriveJSON defaultOptions ''RadarSweep