Remove redundant placement generation

2025-09-17 17:36:45 +01:00
parent 8721b31811
commit f12ae3533c
3 changed files with 2 additions and 10 deletions
@@ -126,9 +126,6 @@ placeSpotID' ps pt w = case pt of
    PutNothing -> (0, w)
    PutID i -> (i, w)
    PutWorldUpdate f -> (0, w & f ps)
-    PutUsingGenParams f ->
-        let (w', pt') = f w
-         in placeSpotID' ps pt' w'
    PutChasm ps' -> (0, w & cWorld . chasms .:~ map doShift ps')
  where
    p@(V2 px py) = _psPos ps