Tweak display, scrolling of item values

src/Dodge/Data/Laser.hs

@@ -18,7 +18,7 @@ data LaserType
     | TargetingLaser {_laserEmmiter :: NewInt ItmInt}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-data LaserStart = LaserStart
+data Laser = Laser
     { _lpPhaseV :: Float
     , _lpPos :: Point2
     , _lpDir :: Float
@@ -27,16 +27,7 @@ data LaserStart = LaserStart
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
---data Laser = Laser
---    { _lzColor :: Color
---    , _lzPoints :: [Point2]
---    , _lzType :: LaserType
---    }
---    deriving (Eq, Ord, Show, Read) --Generic, Flat)
-
---makeLenses ''Laser
-makeLenses ''LaserStart
+makeLenses ''Laser
 makeLenses ''LaserType
 deriveJSON defaultOptions ''LaserType
-deriveJSON defaultOptions ''LaserStart
---deriveJSON defaultOptions ''Laser
+deriveJSON defaultOptions ''Laser