Cleanup

2025-09-23 21:02:27 +01:00
parent 398b3a1342
commit 87f1444f5c
6 changed files with 8 additions and 7 deletions
@@ -24,6 +24,7 @@ data GenWorld = GenWorld
    { _gwWorld :: World
    , _genRooms :: IM.IntMap Room
    , _genPmnt :: IM.IntMap Placement
+    , _genInts :: IM.IntMap Int
    }

 ---- ROOM DATATYPES
@@ -56,7 +57,7 @@ data PSType
    | PutDoor Color EdgeObstacle WdBl [(Point2, Point2)]
    | RandPS (State StdGen PSType)
    | PutForeground ForegroundShape
-    | PutWorldUpdate (PlacementSpot -> GenWorld -> GenWorld)
+    | PutWorldUpdate (Room -> PlacementSpot -> GenWorld -> GenWorld)
    | PutNothing
    | PutID {_putID :: Int}
    | PutChasm {_putChasmPoly :: [Point2]}
@@ -107,7 +108,6 @@ data Room = Room
    , _rmPath :: S.Set (Point2, Point2)
    , _rmPmnts :: [Placement]
    , _rmInPmnt :: [GenWorld -> Placement]
--    , _rmOutPmnt :: IM.IntMap Placement
    , _rmBound :: [[Point2]]
    , _rmFloor :: Floor
    , _rmName :: String