Commit before checking where mounted lights became misplaced

2025-10-04 00:34:45 +01:00
parent a642198bfc
commit aba855e0a6
3 changed files with 3 additions and 4 deletions
@@ -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