Cleanup, remove inventory display update code on dropping item

src/Dodge/Inventory/SelectionList.hs

@@ -18,21 +18,6 @@ import Picture.Base
 
 invSelectionItem' :: Creature -> Int -> ComposedItem -> SelectionItem ()
 invSelectionItem' cr i it = invSelectionItem cr i it 0
---    SelectionItem
---        { _siPictures = pics & ix 0 %~ (++ anyequippos ++ anyhotkey)
---        , _siHeight = _itInvSize it
---        , _siIsSelectable = True
---        , _siColor = col
---        , _siOffX = 0
---        , _siPayload = ()
---        }
---  where
---    anyhotkey = maybe [] ((' ':) .hotkeyToString) (cr ^? crInvHotkeys . ix i)
---    anyequippos = maybe [] (rightPad 8 ' ' . (' ':) . eqPosText) (cr ^? crInvEquipped . ix i)
---    col = itemInvColor it
---    pics =  case _itCurseStatus it of
---        UndroppableIdentified -> itemDisplay cr it
---        _ -> itemDisplay cr it
 
 invSelectionItem :: Creature -> Int -> ComposedItem -> Int -> SelectionItem ()
 invSelectionItem cr i ci indent =