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
@@ -84,7 +84,7 @@ twinSlowDoorChasers = do
    return $ twinSlowDoorRoom 80 200 40 & rmPmnts %~ (plmnts ++)

 southPillarsRoom :: RandomGen g => Float -> Float -> Float -> State g Room
-southPillarsRoom x y h = addSouthPillars x h (roomRectAutoLinks x y)
+southPillarsRoom x y h = addSouthPillars x h =<< (roomRectAutoLinks x y)

 addSouthPillars :: RandomGen g => Float -> Float -> Room -> State g Room
 addSouthPillars x h r = do