Commit before checking where mounted lights became misplaced

src/Dodge/Room/Ngon.hs

@@ -4,7 +4,6 @@ module Dodge.Room.Ngon where
 import Dodge.Room.Path
 import Data.List
 import qualified Data.Set as S
---import Data.Maybe
 import Data.Tile
 import Dodge.Data.GenWorld
 import Dodge.Default.Room
@@ -20,7 +19,7 @@ roomNgon n x = do
     return
         defaultRoom
             { _rmPolys = [poly]
-            , _rmLinks = map f lnks -- muout (init lnks) ++ muin[last lnks]
+            , _rmLinks = map f lnks
             , _rmPath = linksGridToPath (map f lnks) path4
             , _rmPmnts = [thelight]
             , _rmBound = [poly]

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
@@ -200,7 +201,7 @@ tutLight = do
     return $
         tToBTree "TutLight" $
             treePost
-                [ x
+                [ x -- & rmPmnts <>~ [sps (PS 0 0) (PutFlIt torch)]
                 , corridor & rmPmnts .~ mempty
                 , removeLights y
                 , corridor & rmPmnts .~ mempty