Add Read instances

src/Dodge/Data/Beam.hs

@@ -22,18 +22,22 @@ data Beam = Beam
     , _bmOrigin :: Maybe Int
     , _bmType   :: BeamType
     }
+  deriving (Eq,Ord,Show,Read)
 data BeamDraw = BasicBeamDraw
     | BeamDrawColor Color
+  deriving (Eq,Ord,Show,Read)
 
 data BeamCombineType = FlameBeamCombine
     | LasBeamCombine
     | TeslaBeamCombine
     | SplitBeamCombine
     | NoBeamCombine
+  deriving (Eq,Ord,Show,Read)
 data BeamType 
     = BeamCombine 
         { _beamCombine :: BeamCombineType -- (Point2 , (Point2,Point2,Beam) , (Point2,Point2,Beam)) -> World -> World
         }
     | BeamSimple
+  deriving (Eq,Ord,Show,Read)
 makeLenses ''BeamType
 makeLenses ''Beam