Cleanup, work towards allowing for placements to interact across rooms

src/Dodge/LevelGen/Data.hs

@@ -14,6 +14,7 @@ import System.Random
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM
 --import Data.Bifunctor
+
 data PSType = PutCrit {_unPutCrit :: Creature}
     | PutMachine Color [Point2] Machine
     | PutLS LightSource
@@ -32,6 +33,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | RandPS (State StdGen PSType)
     | PutForeground Shape
     | PutWorldUpdate (PlacementSpot -> World -> World)
+    | AddToPList Int PSType
     | PutNothing
     | PutID { _putID :: Int}
 -- maybe there is a monadic implementation of this?