Simplify layout Annotations

2025-08-21 17:57:02 +01:00
parent befe24e038
commit e7b52f4487
10 changed files with 109 additions and 73 deletions
@@ -151,7 +151,7 @@ addButtonSlowDoor x h rm = do
                                    Nothing
    col = dim $ light red

-slowDoorRoom :: RandomGen g => State g Room
+slowDoorRoom :: State StdGen Room
 slowDoorRoom = do
    x <- state $ randomR (400, 800)
    y <- state $ randomR (400, 800)
@@ -168,7 +168,7 @@ slowDoorRoom = do
    proom <- southPillarsRoom x y h
    addButtonSlowDoor x h (proom & rmPmnts %~ (++ (crits ++ barrels)))

-slowDoorRoomRunPast :: RandomGen g => State g (MetaTree Room String)
+slowDoorRoomRunPast :: State StdGen (MetaTree Room String)
 slowDoorRoomRunPast = do
    r <- slowDoorRoom
    rToOnward "slowDoorRoomRunPast" $