Remove Annotation datatype

src/Dodge/Room/Tutorial.hs

@@ -1,6 +1,6 @@
 module Dodge.Room.Tutorial where
 
-import Dodge.Annotation
+import Dodge.Data.MTRS
 import Dodge.Room.Room
 import Dodge.Cleat
 import Dodge.Data.GenWorld
@@ -38,16 +38,15 @@ import TreeHelp
 
 tutAnoTree :: State LayoutVars MTRS
 tutAnoTree =
-    annoToRoomTree $
-    OnwardList
-        [ AnTree $ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
-        , AnTree corDoor
-        , AnTree tutRooms
-        , AnTree corDoor
-        , AnTree $ tToBTree "critroom" <$> weaponBehindPillar
-        , AnTree corDoor
-        , AnTree tutDrop
-        , AnTree $ return $ tToBTree "cor" $ return $ cleatOnward corridor
+    foldMTRS
+        [ tToBTree "TutStartRez" . return . cleatOnward <$> tutRezBox
+        , corDoor
+        , tutRooms
+        , corDoor
+        ,  tToBTree "critroom" <$> weaponBehindPillar
+        , corDoor
+        , tutDrop
+        , return $ tToBTree "cor" $ return $ cleatOnward corridor
         ----        , AnTree $ pickupTut
         ----        , AnTree $ weaponTut
         ]