Fix glassLesson room

src/Dodge/Room/Room.hs

@@ -75,33 +75,6 @@ branchWith r ts = Node (PassDown r) $ return (UseAll door) : fmap (fmap PassDown
 manyDoors :: Int -> SubCompTree Room
 manyDoors i = treeFromPost (replicate i (PassDown door)) $ UseAll door
 
--- TODO: partially combine a room tree into a room
-glassLesson :: RandomGen g => State g (SubCompTree Room)
-glassLesson = do
-    i <- takeOne [1,2,3]
-    corridors <- replicateM i $ PassDown <$> randomiseOutLinks corridor
-    return $ Node (PassDown botRoom) [singleUseNone door,uppers, treeFromPost (PassDown door : corridors) $ UseAll door]
-  where 
-    uppers = Node (PassDown door) [singleUseNone topRoom]
-    botRoom = set rmPmnts botplmnts $ roomRect 200 200 1 1
-    topRoom = set rmPmnts topplmnts $ roomRect 200 200 1 1
-    botplmnts = 
-        [sPS    (V2 0 0) 0 $ PutWall (rectNSWE 200 0 90 110) defaultCrystalWall
-        ,sPS (V2 50 100) 0 $ PutCrit miniGunCrit
-        ,RandomPlacement $ takeOne
-            [ spanLightI (V2 160 0) (V2 160 220)
-            , mntLS vShape (V2 180 200) (V3 160 180 50)
-            ]
-        ]
-    topplmnts = 
-        [windowLine (V2 100 200) (V2 100 0) 
-        ,sPS (V2 50 100) 0 $ PutCrit miniGunCrit
-        --,sPS (V2 50 50) 0 putLamp
-        ,RandomPlacement $ takeOne
-            [ spanLightI (V2 160 (-20)) (V2 160 220)
-            , mntLS vShape (V2 180 200) (V3 160 180 50)
-            ]
-        ]
 
 glassSwitchBack :: RandomGen g => State g Room
 glassSwitchBack = do