Simplify MetaTrees

2022-06-13 10:25:06 +01:00
parent 768b86d393
commit 31e7f4290e
6 changed files with 97 additions and 84 deletions
@@ -31,6 +31,6 @@ annoToRoomTree an = case an of
        ii <- randomitemidentity
        keyroom <- fromJust $ lookup ii ks
        return $ MTree ("PassthroughLockKeyLists-"++show ii) 
-            (MTree "RassThroughLockKeyLists" lr [MBranch "" (toLabel i) keyroom])
+            (NodeMTree $ MTree "RassThroughLockKeyLists" (NodeMTree lr) [MBranch "" (toLabel i) keyroom])
            []