Start to clean up Prop datatype

src/Dodge/Room/Airlock.hs

@@ -153,9 +153,6 @@ airlockSimple =
     y2 = (0, pi / 2)
     x2 = (0, pi)
 
---    outDoorps = (V2 0 0,) <$> arcStepwise 3 (negate $ pi / 2) (V2 0 0) (V2 0 55)
---    inDoorps = (V2 0 0,) <$> arcStepwise 3 (negate $ pi / 2) (V2 0 0) (V2 (-55) 0)
-
 airlockZ :: RandomGen g => State g Room
 airlockZ = do
     let cenlight = mntLS vShape (V2 90 60) (V3 90 40 50) `addPlmnt` mntLS vShape (V2 90 60) (V3 90 80 50)

src/Dodge/Room/LongDoor.hs

@@ -137,7 +137,6 @@ addButtonSlowDoor x h rm = do
             putDoubleDoorThen
                 DoorObstacle
                 thewall
---                (WdBlBtNotOff $ fromJust $ _plMID btplmnt)
                 (WdBlBtOn $ fromJust $ _plMID btplmnt)
                 30
                 (V2 0 h)