Add Binary instances

src/Dodge/Data/CreatureEffect.hs

@@ -5,29 +5,36 @@
 
 module Dodge.Data.CreatureEffect where
 
+import Data.Binary
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
 
 data WdCrCr = NoCreatureEffect
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary WdCrCr 
 
 data CrWdImp = NoCrWdImp
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CrWdImp 
 
 data CrWdWd = CrWdWdId
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CrWdWd 
 
 data IntImp = NoIntImp
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary IntImp 
 
 data CrImp
     = NoCrImp
     | TurnTowardCr Float -- turn amount
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CrImp
 
 data P2Imp = P2ImpNo
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary P2Imp 
 
 data WdCrBl
     = WdCrTrue
@@ -36,6 +43,7 @@ data WdCrBl
     | WdCrLOSTarget
     | WdCrSafeDistFromTarget Float
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary WdCrBl
 
 data CrBl
     = CrCanShoot
@@ -43,26 +51,32 @@ data CrBl
     | CrIsAiming
     | CrIsAnimate
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CrBl
 
 data MCrAc = MCrNoAction
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary MCrAc 
 
 data CrAc
     = CrTurnAround
     | CrFleeFromTarget
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CrAc
 
 data P2Ac = P2NoAction
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary P2Ac 
 
 data MP2Ac = MP2NoAction
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary MP2Ac 
 
 data CrWdAc
     = CrWdBFSThenReturn Int
     | ChooseMovementSpreadGun
     | ChooseMovementLtAuto
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CrWdAc
 
 deriveJSON defaultOptions ''WdCrCr
 deriveJSON defaultOptions ''CrWdImp