Make Placement into a product type

2025-09-02 12:31:55 +01:00
parent dc13c61dca
commit f278af0f30
29 changed files with 168 additions and 168 deletions
@@ -66,12 +66,12 @@ initialAnoTree =
              PassthroughLockKeyLists keyCardRunPastRand itemRooms
            , AnTree . intAnno $ warningRooms "INVISIBLE CREATURE AHEAD"
            , AnTree $
-                rToOnward "chaseCrit+armourChaseCrit rectRoom" $
-                    return . cleatOnward $
-                        roomRectAutoLinks 400 400 & rmPmnts
+                rToOnward "chaseCrit+armourChaseCrit rectRoom" =<<
+                    return . cleatOnward <$>
+                        (roomRectAutoLinks 400 400 <&> rmPmnts
                            .++~ [ psPtPl anyUnusedSpot (PutCrit invisibleChaseCrit)
                                 , psPtPl anyUnusedSpot (PutCrit armourChaseCrit)
-                                 ]
+                                 ])
            , AnTree . intAnno $ fmap (tToBTree "healthTest") . healthTest
            , AnTree . zoom lyGen $ 
                (tanksRoom [] [] >>= rToOnward "empty tanksRoom" . pure . cleatOnward)