Polymorphise meta tree labels

2022-06-13 15:22:15 +01:00
parent 31e7f4290e
commit 7a07fc97c2
19 changed files with 67 additions and 97 deletions
@@ -37,7 +37,7 @@ import qualified Data.Map.Strict as M
 --import qualified Data.Text as T


-warningRooms :: RandomGen g => Int -> State g (MetaTree Room)
+warningRooms :: RandomGen g => Int -> State g (MetaTree Room String)
 warningRooms n = do
    rm <- takeOne [roomNgon 8 200, roomRectAutoLinks 200 200]
    cenroom <- shuffleLinks $ addWarningTerminal n rm