Add Binary instances

2022-08-21 10:58:19 +01:00
parent 386a2b4732
commit 1ce7d4a72d
95 changed files with 345 additions and 3 deletions
@@ -8,6 +8,7 @@ module Dodge.Data.Item.Use.Equipment (
    module Dodge.Data.Item.Use.Equipment,
 ) where

+import Data.Binary
 import Flat
 import Control.Lens
 import Data.Aeson
@@ -24,12 +25,14 @@ data EquipEffect = EquipEffect
    , _eeViewDist :: Maybe Float
    }
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary EquipEffect 

 data EquipParams
    = NoEquipParams
    | EquipID {_eparamID :: Int}
    | EquipCounter {_eparamInt :: Int}
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary EquipParams

 makeLenses ''EquipEffect
 makeLenses ''EquipParams