Remove PickOnePlacements

src/Dodge/Placement/PlaceSpot.hs

@@ -11,7 +11,6 @@ import Control.Monad.State
 import Data.Bifunctor
 import Data.Foldable
 import qualified Data.IntSet as IS
-import Data.Maybe
 import Dodge.Base.NewID
 import Dodge.Data.GenWorld
 import Dodge.Path
@@ -34,15 +33,10 @@ placeSpot (w, rm) plmnt = case plmnt of
     Placement{_plSpot = PSPos extract eff fallback} ->
         placeSpotUsingLink w rm plmnt extract eff fallback
     Placement{} -> placePlainPSSpot w rm plmnt shift
-    PlacementUsingPos p subpl -> placeSpot (w, rm) (subpl (shiftPoint3By shift p))
     RandomPlacement rplmnt -> placeRandomPlacement rplmnt w rm
-    PickOnePlacement i pl -> ((placePickOne i pl rm w, rm), [])
   where
     shift = _rmShift rm
 
-placePickOne :: Int -> Placement -> Room -> GenWorld -> GenWorld
-placePickOne i pl rm = genPlacements %~ IM.insertWith (++) i [(pl, fromJust (_rmMID rm))]
-
 placeRandomPlacement ::
     State StdGen Placement ->
     GenWorld ->