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.Creature.Stance where

+import Data.Binary
 import Flat
 import LinearHelp ()
 import Control.Lens
@@ -18,6 +19,7 @@ data Stance = Stance
    , _strideLength :: Int
    }
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Stance 

 data Carriage
    = Walking
@@ -29,6 +31,7 @@ data Carriage
    | Flying
    | Boosting Point2
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Carriage

 data FootForward
    = LeftForward
@@ -36,11 +39,13 @@ data FootForward
    | WasLeftForward
    | WasRightForward
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary FootForward

 data Posture
    = Aiming
    | AtEase
    deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Posture

 makeLenses ''Stance
 makeLenses ''Carriage