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
@@ -1,5 +1,6 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.SensorDoor where
+import Dodge.Annotation.Data
 import Dodge.UseAll
 import Dodge.LevelGen.Data
 import Dodge.PlacementSpot
@@ -56,7 +57,7 @@ sensorRoom senseType n = do
        p' = p +.+ rotateV d (V2 0 (negate 100))
        isclose = dist (_rlPos rl) p' < 30

-sensorRoomRunPast :: RandomGen g => DamageType -> Int -> State g (MetaTree Room)
+sensorRoomRunPast :: RandomGen g => DamageType -> Int -> State g MTRS
 sensorRoomRunPast dt n = do
    t <- sensorRoom dt n
    rToOnward "sensorRoomRunPast" $ t & applyToSubforest [0]