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.Item (
    module Dodge.Data.Item.Location,
 ) where

+import Data.Binary
 import Flat
 import Color
 import Control.Lens
@@ -51,6 +52,7 @@ data Item = Item
    , _itParams :: ItemParams
    }
    deriving (Eq, Show, Read, Generic, Flat)
+instance Binary Item 

 _itUseAimStance :: Item -> AimStance
 _itUseAimStance = _aimStance . _heldAim . _itUse