Working implementation of light change when door opens

src/Dodge/LevelGen/Data.hs

@@ -27,7 +27,7 @@ import Control.Lens
 import Control.Monad.State
 import System.Random
 data PSType = PutCrit {_unPutCrit :: Creature}
-    | PutLS LightSource Picture
+    | PutLS LightSource
     | PutButton Button
     | PutProp Prop
     | PutFlIt Item
@@ -49,6 +49,7 @@ data PlacementSpot = PS
     , _psRot :: Float
     , _psType :: PSType
     }
+-- maybe there is a monadic implementation of this?
 data Placement = Placement 
     { _placementSpot :: PlacementSpot
     , _idPlacement :: Int -> Maybe Placement