Add missing file, workaround for placement positions bug

src/Dodge/Room/GlassLesson.hs

@@ -19,12 +19,10 @@ import Control.Monad.State
 --import Control.Monad.Loops
 import System.Random
 import Data.Tree
-
--- 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
+    corridors <- replicateM i $ PassDown <$> shuffleLinks corridor
     return $ Node (PassDown botRoom) 
         [ singleUseNone $ door & rmConnectsTo .~ S.singleton (LabLink 0)
         , uppers
@@ -58,3 +56,7 @@ glassLesson = do
             , mntLS vShape (V2 180 200) (V3 160 180 50)
             ]
         ]
+glassLessonRunPast :: RandomGen g => State g (SubCompTree Room)
+glassLessonRunPast = f <$> glassLesson
+  where
+    f (Node r rs) = Node r $ (return $ UseLabel 0 $ door & rmConnectsTo .~ S.singleton (OnEdge West)) : rs