Cleanup

src/Dodge/Data.hs

@@ -292,11 +292,6 @@ data Gust = Gust
     , _guVel :: Point2
     , _guTime :: Int
     }
-data TempLightSource = TLS 
-    { _tlsParam     :: LSParam
-    , _tlsUpdate    :: World -> TempLightSource -> Maybe TempLightSource
-    , _tlsTime      :: !Int
-    }
 data CreatureType
     = Humanoid
         { _skinHead     :: Color
@@ -1383,7 +1378,6 @@ makeLenses ''Damage
 makeLenses ''DamageEffect
 makeLenses ''World
 makeLenses ''Creature
-makeLenses ''TempLightSource
 makeLenses ''Item
 makeLenses ''ItemUse
 makeLenses ''ItEffect