Remove record

src/Dodge/Data/Flame.hs

@@ -5,7 +5,6 @@
 
 module Dodge.Data.Flame where
 
-import Color
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
@@ -13,7 +12,6 @@ import Geometry.Data
 
 data Flame = Flame
     { _flVel :: Point2
-    , _flColor :: Color
     , _flPos :: Point2
     , _flWidth :: Float
     , _flTimer :: Int