Remove outplacements

src/Dodge/Data/GenWorld.hs

@@ -107,7 +107,7 @@ data Room = Room
     , _rmPath :: S.Set (Point2, Point2)
     , _rmPmnts :: [Placement]
     , _rmInPmnt :: [GenWorld -> Placement]
-    , _rmOutPmnt :: IM.IntMap Placement
+--    , _rmOutPmnt :: IM.IntMap Placement
     , _rmBound :: [[Point2]]
     , _rmFloor :: Floor
     , _rmName :: String

src/Dodge/Default/Room.hs

@@ -16,7 +16,7 @@ defaultRoom =
         , _rmPath = mempty
         , _rmPmnts = mempty
         , _rmInPmnt = mempty
-        , _rmOutPmnt = mempty
+--        , _rmOutPmnt = mempty
         , _rmBound = mempty
         , _rmFloor = InheritFloor
         , _rmName = "defaultRoom"

src/Dodge/Layout.hs

@@ -37,7 +37,7 @@ generateLevelFromRoomList gr' w =
         . over gwWorld setupWorldBounds
 --        . over (gwWorld . cWorld . lWorld) initItemLocations
         . doInPlacements
-        . doOutPlacements
+--        . doOutPlacements
         . doIndividualPlacements
         . setTiles
         . worldToGenWorld rs'
@@ -88,20 +88,20 @@ doRoomInPlacements w rm = foldr f (w, rm) $ _rmInPmnt rm
   where
     f plf (w', r') = fst $ placeSpot (w', r') (plf (w'))
 
-doOutPlacements :: GenWorld -> GenWorld
+--doOutPlacements :: GenWorld -> GenWorld
-doOutPlacements w =
+--doOutPlacements w =
-    let ((pmnts, gw), rms) = mapAccumR doRoomOutPlacements (IM.empty, w) (_genRooms w)
+--    let ((pmnts, gw), rms) = mapAccumR doRoomOutPlacements (IM.empty, w) (_genRooms w)
-     in gw & genRooms .~ rms & genPmnt <>~ pmnts
+--     in gw & genRooms .~ rms & genPmnt <>~ pmnts
 
-doRoomOutPlacements ::
+--doRoomOutPlacements ::
-    (IM.IntMap [Placement], GenWorld) ->
+--    (IM.IntMap [Placement], GenWorld) ->
-    Room ->
+--    Room ->
-    ((IM.IntMap [Placement], GenWorld), Room)
+--    ((IM.IntMap [Placement], GenWorld), Room)
-doRoomOutPlacements imw r = foldr f (imw, r) $ IM.toList $ _rmOutPmnt r
+--doRoomOutPlacements imw r = foldr f (imw, r) $ IM.toList $ _rmOutPmnt r
-  where
+--  where
-    f (i, pl) ((im, w), rm) =
+--    f (i, pl) ((im, w), rm) =
-        let ((neww, newrm), plmnts) = placeSpot (w, rm) pl
+--        let ((neww, newrm), plmnts) = placeSpot (w, rm) pl
-         in ((IM.insert i plmnts im, neww), newrm)
+--         in ((IM.insert i plmnts im, neww), newrm)
 
 doIndividualPlacements :: GenWorld -> GenWorld
 doIndividualPlacements gw =

src/Dodge/Room/RunPast.hs

@@ -2,7 +2,6 @@ module Dodge.Room.RunPast (
     lockedStart,
 ) where
 
-import qualified Data.IntMap.Strict as IM
 import Color
 import qualified Data.Set as S
 import Dodge.Cleat