Add Read instances

src/Dodge/Data/Item/Params.hs

@@ -55,7 +55,9 @@ data ItemParams
         , _previousArcEffect :: PreviousArcEffect
         }
     | ParamMID {_paramMID :: Maybe Int}
+  deriving (Eq,Ord,Show,Read)
 data PreviousArcEffect = NoPreviousArcEffect | PerturbTillBreakPreviousArc
+  deriving (Eq,Ord,Show,Read)
 data GunBarrels
     = MultiBarrel
         { _brlSpread     :: BarrelSpread
@@ -67,6 +69,7 @@ data GunBarrels
         , _brlInaccuracy :: Float
         }
     | SingleBarrel  {_brlInaccuracy :: Float}
+  deriving (Eq,Ord,Show,Read)
 data Nozzle = Nozzle
     { _nzPressure :: Float
     , _nzDir :: Float
@@ -75,10 +78,12 @@ data Nozzle = Nozzle
     , _nzWalkSpeed  :: Float
     , _nzLength     :: Float
     }
+  deriving (Eq,Ord,Show,Read)
 data BarrelSpread
     = AlignedBarrels
     | SpreadBarrels   {_spreadAngle :: Float}
     | RotatingBarrels {_rotatingBarrelInaccuracy :: Float}
+  deriving (Eq,Ord,Show,Read)
 
 makeLenses ''BarrelSpread
 makeLenses ''ItemParams