Simplify layout Annotations

2025-08-21 17:57:02 +01:00
parent befe24e038
commit e7b52f4487
10 changed files with 109 additions and 73 deletions
@@ -21,7 +21,7 @@ import Geometry
 import LensHelp
 import RandomHelp

-warningRooms :: RandomGen g => String -> Int -> State g (MetaTree Room String)
+warningRooms :: String -> Int -> State StdGen (MetaTree Room String)
 warningRooms str n = do
    rm <- do
        tr <- tanksRoom [] []