Make equipment indices point to item indices

src/Dodge/Floor.hs

@@ -4,8 +4,8 @@ module Dodge.Floor (
     tutRoomTree,
 ) where
 
+import Dodge.Room.Tutorial
 import Dodge.Annotation.Data
---import Dodge.Room.Tutorial
 import Data.List (intersperse)
 import Dodge.Annotation
 import Dodge.Cleat
@@ -24,8 +24,7 @@ initialRoomTree = annoToRoomTree initialAnoTree
 --initialRoomTree = annoToRoomTree startWorldTreeTest
 
 tutRoomTree :: State LayoutVars (MetaTree Room String)
---tutRoomTree = annoToRoomTree tutAnoTree
-tutRoomTree = annoToRoomTree initialAnoTree
+tutRoomTree = annoToRoomTree tutAnoTree
 
 --startWorldTreeTest :: Annotation
 --startWorldTreeTest  =