Function for adding random lights to roomNGon

src/Dodge/Room/Tutorial.hs

@@ -2,6 +2,7 @@
 
 module Dodge.Room.Tutorial where
 
+import Dodge.Room.Modify
 import Control.Monad
 import qualified Data.IntMap.Strict as IM
 import qualified Data.IntSet as IS
@@ -119,7 +120,7 @@ tutDrop = do
     return $
         tToBTree "TutDrop" $
             treePost
-                [x & rmInPmnt .:~ (0, t j), y, cleatOnward rm]
+                [x & rmInPmnt .:~ (0, return . t j), y, cleatOnward rm]
   where
     t j gw =
         let x = gw ^? genInts . ix j
@@ -391,13 +392,6 @@ tutLight = do
                         )
             _ -> Nothing
 
-removeLights :: Room -> Room
-removeLights = rmPmnts %~ mapMaybe f
-  where
-    f x = case x ^. plType of
-        PutLabel "light" -> Nothing
-        _ -> Just x
-
 tutHub :: State LayoutVars (MetaTree Room String)
 tutHub = do
     (is, wbp) <- setTreeInts =<< critsRoom 1
@@ -413,7 +407,7 @@ tutHub = do
     x <-
         shuffleLinks
             . analyserByDoor (RequireEquipment (AMMOMAG DRUMMAG)) i
-            . (rmInPmnt .:~ (0, a))
+            . (rmInPmnt .:~ (0, return . a))
             . addDoorAtNthLinkToggleTerminal 1 ss j
             --            . addDoorAtNthLinkToggleInterrupt 2 ds j
             . addDoorAtNthLinkToggleInterrupt 2 ds j1