Add Binary instances

src/Dodge/Data/Item/HeldUse.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Item.HeldUse where
 
+import Data.Binary
 import Flat
 import Data.Aeson
 import Data.Aeson.TH
@@ -28,11 +29,13 @@ data HeldUse
     | HeldForceField
     | HeldShatter
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary HeldUse
 
 data Cuse
     = CDoNothing
     | CHeal Int
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Cuse
 
 data Euse
     = EDoNothing
@@ -44,6 +47,7 @@ data Euse
     | EonWristShield
     | EoffWristShield
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Euse
 
 data Luse
     = LDoNothing
@@ -53,6 +57,7 @@ data Luse
     | LUnsafeBlink
     | LBoost
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Luse
 
 data HeldMod
     = HeldModNothing
@@ -91,6 +96,7 @@ data HeldMod
     | RevolverXRepeatMod
     | BangConeMod
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary HeldMod
 
 deriveJSON defaultOptions ''Cuse
 deriveJSON defaultOptions ''HeldMod