Cleanup

2023-04-15 10:55:59 +01:00
parent 44f64f4b47
commit 8ab75fb24a
11 changed files with 64 additions and 62 deletions
@@ -20,11 +20,11 @@ initialRoomTree :: State (StdGen, Int) (MetaTree Room String)
 initialRoomTree = annoToRoomTree initialAnoTree
 --initialRoomTree = annoToRoomTree startWorldTreeTest

-startWorldTreeTest :: Annotation
-startWorldTreeTest  =
-    OnwardList $
-            [ IntAnno $ AnTree . startRoom
-            ]
+--startWorldTreeTest :: Annotation
+--startWorldTreeTest  =
+--    OnwardList $
+--            [ IntAnno $ AnTree . startRoom
+--            ]

 initialAnoTree :: Annotation
 initialAnoTree =