Continue to tweak death effects

src/Dodge/Base/NewID.hs

@@ -2,6 +2,16 @@ module Dodge.Base.NewID where
 import qualified IntMapHelp as IM
 import LensHelp
 
+-- | generalised way of putting a new item into a lensed intmap, returning the
+-- new index as well
+plNewID :: ALens' b (IM.IntMap a)
+    -> a
+    -> b
+    -> (Int,b)
+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' b (IM.IntMap a)
     -> ALens' a Int