Rename ItemAttachments

src/Dodge/Room/Room.hs

@@ -7,6 +7,7 @@ module Dodge.Room.Room
     , doubleCorridorBarrels
     , pistolerRoom
     , spawnerRoom
+    , corDoor
     ) where
 import Dodge.Cleat
 import Dodge.Data
@@ -332,3 +333,8 @@ spawnerRoom = do
         (PutCrit spawnerCrit)
     aRoom <- airlock
     return $ treeFromTrunk [ aRoom, corridor] $ pure $ cleatOnward roomWithSpawner
+
+corDoor :: State StdGen (MetaTree Room String)
+corDoor = do
+    cor <- shuffleLinks $ cleatOnward corridor
+    return $ tToBTree "corDoor" $ treePost [door,cor]