Simplify block drawing

src/Dodge/Room/Tanks.hs

@@ -41,8 +41,7 @@ randEdgeTank = do
                         BlockDraws
                             [ bd
                             , BlockDrawBlSh
-                                ( BlShConst $
-                                    colorSH
+                                ( colorSH
                                         orange
                                         ( verticalPipe 80
                                             <> horPipe 80 0 (70 *.* cardVec edge)
@@ -72,8 +71,7 @@ randEdgeTanks i = do
                             BlockDraws
                                 [ bd
                                 , BlockDrawBlSh
-                                    ( BlShConst $
-                                        colorSH
+                                    ( colorSH
                                             orange
                                             ( verticalPipe 80
                                                 <> horPipe 80 0 (70 *.* cardVec edge)

src/Dodge/Room/Tutorial.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.Tutorial where
 
+import Dodge.Room.Tanks
 import Dodge.Room.LongDoor
 import Dodge.Layout
 import Dodge.Item.Held.Utility
@@ -43,6 +44,7 @@ tutAnoTree = do
     foldMTRS
         [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
         , corDoor
+        , tToBTree "lastun" . return . cleatOnward <$> tanksRoom [] []
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , return $ tToBTree "cor" $ return $ cleatOnward corridor
 --        , tToBTree "lastun" . return . cleatOnward <$> cenLasTur