Tweak lasers

src/Dodge/Data/Laser.hs

@@ -5,7 +5,7 @@ module Dodge.Data.Laser where
 
 import NewInt
 import Dodge.Data.Item.Location
-import Color
+--import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -20,7 +20,6 @@ data Laser = Laser
     { _lpPhaseV :: Float
     , _lpPos :: Point2
     , _lpDir :: Float
-    , _lpColor :: Color
     , _lpType :: LaserType
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)