Add Binary instances

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

+import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -76,9 +77,11 @@ data Creature = Creature
    , _crCamouflage :: CamouflageStatus
    }
    deriving (Eq, Show, Read, Generic, Flat)
+instance Binary Creature 

 data CreatureCorpse = MakeDefaultCorpse
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary CreatureCorpse 

 data Intention = Intention
    { _targetCr :: Maybe Creature
@@ -86,6 +89,7 @@ data Intention = Intention
    , _viewPoint :: Maybe Point2
    }
    deriving (Eq, Show, Read, Generic, Flat)
+instance Binary Intention 

 crSel :: Creature -> Int
 crSel = _iselPos . _crInvSel