Commit before further changes to MetaTrees

src/Dodge/Annotation.hs

@@ -7,8 +7,6 @@ module Dodge.Annotation
 import Dodge.UseAll
 import RandomHelp
 import Dodge.Tree
-import Dodge.Tree.Compose
---import Dodge.Room
 import Dodge.Data
 import Dodge.Annotation.Data
 import LensHelp
@@ -33,6 +31,6 @@ annoToRoomTree an = case an of
         ii <- randomitemidentity
         keyroom <- fromJust $ lookup ii ks
         return $ MTree ("PassthroughLockKeyLists-"++show ii) 
-            (MTree "" lr [MBranch "" (toLabel' i) keyroom])
+            (MTree "RassThroughLockKeyLists" lr [MBranch "" (toLabel i) keyroom])
             []