Add Binary instances

src/Dodge/Data/Item/Params.hs

@@ -5,6 +5,7 @@
 
 module Dodge.Data.Item.Params where
 
+import Data.Binary
 import Flat
 import Color
 import Control.Lens
@@ -70,12 +71,15 @@ data ItemParams
     | ParamMID {_paramMID :: Maybe Int}
     | BoostPropIX {_boostPropIX :: Maybe Int}
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary ItemParams
 
 data ShrinkGunStatus = FullSize | Shrunk
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary ShrinkGunStatus 
 
 data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary PreviousArcEffect 
 
 data GunBarrels
     = MultiBarrel
@@ -89,6 +93,7 @@ data GunBarrels
         }
     | SingleBarrel {_brlInaccuracy :: Float}
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary GunBarrels
 
 data Nozzle = Nozzle
     { _nzPressure :: Float
@@ -99,12 +104,14 @@ data Nozzle = Nozzle
     , _nzLength :: Float
     }
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary Nozzle 
 
 data BarrelSpread
     = AlignedBarrels
     | SpreadBarrels {_spreadAngle :: Float}
     | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}
     deriving (Eq, Ord, Show, Read, Generic, Flat)
+instance Binary BarrelSpread
 
 makeLenses ''BarrelSpread
 makeLenses ''ItemParams