Add lights to buttons, cleanup

src/Dodge/Room/Treasure.hs

@@ -6,10 +6,9 @@ module Dodge.Room.Treasure
     where
 import Dodge.Data
 import Dodge.Room.Data
-import Dodge.Room.Placement
+import Dodge.Placements
 import Dodge.Default.Room
 import Dodge.LevelGen.Data
-import Dodge.LightSources.Fitting
 import Geometry
 
 --import Data.List
@@ -33,7 +32,7 @@ triLootRoom w h = pure $ defaultRoom
         [sPS (V2 (15-w)    15 )  0 $ PutID 0
         ,sPS (V2 (w-15)    15 ) pi $ PutID 0
         ,sPS (V2     0  (h-35))  0 $ PutID 2
-        ,mountedLightV (V2 0 (h-20)) (V3 0 (h-80) 70)
+        ,mountLightV (V2 0 (h-20)) (V3 0 (h-80) 70)
         ,sPS (V2     0  ( -60))  0 putLamp
         ]
     , _rmBound  = [tri , base]