Move inventory filter to different section of selection list

2023-02-17 10:35:59 +00:00
parent 4afc216b25
commit 93dfc2a67c
8 changed files with 111 additions and 102 deletions
@@ -36,6 +36,7 @@ invSelectionItem' cr i it = SelectionItem
        UndroppableIdentified -> itemDisplay it
        _ | cr ^? crManipulation . manObject . inInventory . ispItem == Just i -> selectedItemDisplay cr it
        _ -> itemDisplay it
+
 invSelectionItem :: Creature -> (Int,Item) -> SelectionItem ()
 invSelectionItem cr (i,it) = SelectionItem
    { _siPictures = pics