Cleanup

2025-08-27 18:55:25 +01:00
parent 86696deb56
commit 40d2d316cb
35 changed files with 316 additions and 431 deletions
@@ -30,7 +30,7 @@ annoToRoomTree an = case an of
        i <- nextLayoutInt
        (functionlockroom, randomitemidentity) <- takeOne ls
        lr <- zoom lyGen $ functionlockroom i
-        ii <- zoom lyGen $ randomitemidentity
+        ii <- zoom lyGen randomitemidentity
        keyroom <- zoom lyGen . fromJust $ lookup ii ks
        return $
            MTree