Simplify layout Annotations

src/Dodge/Room/Tutorial.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.Tutorial (tutAnoTree) where
 
+import Dodge.Cleat
 import Dodge.Room.Room
 import Dodge.Annotation.Data
 import Dodge.Room.Link
@@ -34,14 +35,15 @@ import Data.List (intersperse)
 tutAnoTree :: Annotation
 tutAnoTree = OnwardList $
         intersperse
-            (AnTree corDoor)
-            [AnTree tutRooms]
+            (AnTree $ zoom lyGen corDoor)
+            [AnTree . zoom lyGen $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
+            ,AnTree $ zoom lyGen tutRooms
+            ]
 
 tutRooms :: State StdGen (MetaTree Room String)
 tutRooms = do
-    x <- tutRezBox
     ys <- toggleDoorTest
-    return $ tToBTree "TutStartRez" $ treePost $ [x,door] <> ys
+    return $ tToBTree "DoorTest" $ treePost $ [] <> ys
 
 tutRezBox :: State StdGen Room
 tutRezBox = do