Refactor floor items, removing ids (not fully checked)

2025-08-23 22:10:33 +01:00
parent 32d7120177
commit fcccd63844
24 changed files with 94 additions and 109 deletions
@@ -10,11 +10,7 @@ plNewID l x w = (i,w & l #%~ IM.insert i x)
    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
-    -> a
-    -> b
-    -> (Int,b)
+plNewUpID :: ALens' b (IM.IntMap a) -> ALens' a Int -> a -> b -> (Int,b)
 plNewUpID l li x w = (i,w & l #%~ IM.insert i (x & li #~ i))
  where
    i = IM.newKey $ w ^# l