Remove Annotation datatype

2025-09-24 10:39:34 +01:00
parent 96b95907f2
commit eb068f5335
12 changed files with 256 additions and 314 deletions
@@ -151,7 +151,7 @@ addButtonSlowDoor x h rm = do
                                    Nothing
    col = dim $ light red

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