Improve some door placement

src/Dodge/Room/Airlock.hs

@@ -96,9 +96,8 @@ airlock0 =
         ]
     col = dim $ dim $ bright red
 
---airlockDoor :: Color -> WdBl -> [(Point2, Point2)] -> PSType
 airlockDoor :: WdBl -> Float -> Point2A -> Point2A -> PSType
-airlockDoor = PutDoor False switchWallObs
+airlockDoor = PutDoor False
 
 airlockDoubleDoor ::
     Point2 ->

src/Dodge/Room/Tutorial.hs

@@ -1,3 +1,4 @@
+{-# OPTIONS_GHC -Wno-unused-imports #-}
 module Dodge.Room.Tutorial where
 
 import Dodge.Room.Tanks
@@ -44,10 +45,10 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
-        , tToBTree "lastun" . return . cleatOnward <$> tanksRoom [] []
+--        , tToBTree "lastun" . return . cleatOnward <$> tanksRoom [] []
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
---        , tToBTree "lastun" . return . cleatOnward <$> cenLasTur
+        , tToBTree "lastun" . return . cleatOnward <$> cenLasTur
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor