Replace PutShape with PutForeground

src/Dodge/Room/SensorDoor.hs

@@ -15,20 +15,8 @@ import Dodge.Room.Ngon
 import Dodge.Room.Procedural
 import Dodge.Room.Corridor
 import Dodge.Room.Link
---import Dodge.Room.Procedural
-import Dodge.Room.Foreground
---import Dodge.Room.RoadBlock
 import Dodge.Placement.Instance
---import Dodge.Default.Room
---import Dodge.Item.Weapon.BulletGuns
---import Dodge.Item.Weapon.Utility
---import Dodge.LevelGen.Data
---import Geometry.Data
 import Geometry
---import Padding
-import Color
-import Shape
---import Lorem
 import LensHelp
 import RandomHelp