Add Binary instances

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

+import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -30,6 +31,7 @@ data DamageEffect
    | PushBackDamage {_dePushBack :: Float}
    | NoDamageEffect
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary DamageEffect

 data Damage = Damage
    { _dmType :: DamageType
@@ -40,6 +42,7 @@ data Damage = Damage
    , _dmEffect :: DamageEffect
    }
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Damage 

 isElectrical :: Damage -> Bool
 isElectrical dm = case _dmType dm of