Polymorphise meta tree labels

src/Dodge/Annotation.hs

@@ -14,7 +14,7 @@ import LensHelp
 --import Control.Lens
 import Data.Maybe
 
-annoToRoomTree :: Annotation -> State (StdGen,Int) (MetaTree Room)
+annoToRoomTree :: Annotation -> State (StdGen,Int) MTRS
 annoToRoomTree an = case an of
     SpecificRoom r -> zoom _1 r 
     OnwardList ans -> do
@@ -31,6 +31,6 @@ annoToRoomTree an = case an of
         ii <- randomitemidentity
         keyroom <- fromJust $ lookup ii ks
         return $ MTree ("PassthroughLockKeyLists-"++show ii) 
-            (NodeMTree $ MTree "RassThroughLockKeyLists" (NodeMTree lr) [MBranch "" (toLabel i) keyroom])
+            (NodeMTree $ MTree "RassThroughLockKeyLists" (NodeMTree lr) [MBranch (toLabel i) keyroom])
             []