Continue to tweak death effects

src/Dodge/Placement/PlaceSpot.hs

@@ -143,16 +143,6 @@ addPane wl l wls = IM.insert wlid (wl { _wlLine = l, _wlID = wlid }) wls
   where
     wlid = IM.newKey wls
 
--- | generalised way of putting a new item into a lensed intmap, returning the
--- new index as well
-plNewID :: ALens' World (IM.IntMap a)
-    -> a
-    -> World
-    -> (Int,World)
-plNewID l x w = (i,w & l #%~ IM.insert i x)
-  where
-    i = IM.newKey $ w ^# l
-
 ---- | place an new object into an intmap and update its id
 --plNewUpID :: ALens' World (IM.IntMap a)
 --    -> ALens' a Int