Cleanup

src/Dodge/LightSource/Draw.hs

@@ -4,9 +4,8 @@ import Dodge.Data.LightSource
 import Geometry.Data
 import Picture
 
-drawLightSource :: LightSourceDraw -> LightSource -> Picture
-drawLightSource lsd = case lsd of
-    DefaultLightSourceDraw -> defLSPic
+drawLightSource :: LightSource -> Picture
+drawLightSource = defLSPic
 
 defLSPic :: LightSource -> Picture
 defLSPic ls = setLayer BloomNoZWrite . translate3 (_lsPos $ _lsParam ls) . color col $ circleSolid 4