Work on combine cursors

2023-02-17 18:00:40 +00:00
parent 30ce713534
commit 90133fb54b
5 changed files with 91 additions and 43 deletions
@@ -178,9 +178,7 @@ dropExcept cr invid w =
        invid `IM.delete` _crInv cr

 dropItem :: Creature -> Int -> World -> World
-dropItem cr invid = rmInvItem cid invid . copyInvItemToFloor cr invid -- . mayberemoveequip
-  where
-    cid = _crID cr
+dropItem cr invid = rmInvItem (_crID cr) invid . copyInvItemToFloor cr invid -- . mayberemoveequip

 -- the following should be done in rmInvItem
 --    mayberemoveequip = case _crLeftInvSel cr of