Continue work on chasm rooms

src/Dodge/Data/GenWorld.hs

@@ -62,6 +62,9 @@ data PSType
     | PutNothing
     | PutID {_putID :: Int}
     | PutChasm {_putChasmPoly :: [Point2]}
+    | PutLabel {_putLabel :: String} -- currently not actually put anywhere
+        -- just used for later inspection as top level 
+        -- of a continuing placement in a room placement list
 
 instance ShortShow PSType where
     shortShow PutCrit {} = "PutCrit"
@@ -86,6 +89,7 @@ instance ShortShow PSType where
     shortShow PutNothing = "PutNothing"
     shortShow PutID {} = "PutID"
     shortShow PutChasm {} = "PutChasm"
+    shortShow PutLabel {} = "PutLabel"
 
 -- maybe there is a monadic implementation of this?
 -- add room effect for any placement spot?