Commit before attempting to allow for non-convex chasm shapes

src/Dodge/Room/Tutorial.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.Tutorial where
 
+import Dodge.Item.Held.Utility
 import Control.Monad
 import qualified Data.IntMap.Strict as IM
 import qualified Data.IntSet as IS
@@ -241,7 +242,7 @@ tutHub = do
     return $
         tToBTree "DoorTest" $
             Node
-                x
+                (x & rmPmnts .:~ sps0 (PutFlIt led))
                 [ treeFromPost [triggerDoorRoom i] r1
                 , treeFromPost [triggerDoorRoom j] r2
                 , (rmClusterStatus . csLinks . at OnwardCluster .~ Nothing)