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
@@ -47,7 +47,7 @@ longRoom = do
                | crx <- [12.5,37.5,62.5] ] ++
        [sPS (V2 25 lampy ) 0 putLamp | lampy <- [20,h-10] ]

-longRoomRunPast :: RandomGen g => State g (MetaTree Room)
+longRoomRunPast :: RandomGen g => State g (MetaTree Room String)
 longRoomRunPast = do
    r <- longRoom
    rToOnward "longRoomRunPast"