Cleanup

2024-09-13 09:43:56 +01:00
parent d2e1b054d0
commit c81fd5490d
6 changed files with 80 additions and 124 deletions
@@ -46,9 +46,7 @@ invSelectionItem cr i (it,indent,_) =
    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
+    pics = itemDisplay cr it

 hotkeyToString :: Hotkey -> String
 hotkeyToString x = case x of