Add Binary instances

2022-08-21 10:58:19 +01:00
parent 386a2b4732
commit 1ce7d4a72d
95 changed files with 345 additions and 3 deletions
@@ -5,6 +5,7 @@

 module Dodge.Data.Magnet where

+import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -14,11 +15,13 @@ import Geometry.Data

 newtype MagnetUpdate = MagnetUpdateTimer Int
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary MagnetUpdate

 data MagnetBuBu
    = MagnetBuId
    | MagnetBuBuCurveAroundField Float Float
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary MagnetBuBu

 data Magnet = Magnet
    { _mgID :: Int
@@ -27,6 +30,7 @@ data Magnet = Magnet
    , _mgField :: MagnetBuBu
    }
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Magnet 

 makeLenses ''Magnet
 deriveJSON defaultOptions ''MagnetUpdate