Rework annotations

2022-06-12 13:38:23 +01:00
parent 8b4b6de0c0
commit 2ccb26b289
16 changed files with 161 additions and 154 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 (LabTree Room)
+longRoomRunPast :: RandomGen g => State g (MetaTree Room)
 longRoomRunPast = do
    r <- longRoom
    rToOnward "longRoomRunPast"