Refactor close objects hud display

src/Dodge/Inventory/SelectionList.hs

@@ -1,9 +1,9 @@
-{-# LANGUAGE LambdaCase #-}
+--{-# LANGUAGE LambdaCase #-}
 
 module Dodge.Inventory.SelectionList (
     invSelectionItem,
     invSelectionItem',
-    closeObjectToSelectionItem,
+    closeItemToSelectionItem,
 ) where
 
 import Dodge.Data.ComposedItem
@@ -51,8 +51,8 @@ hotkeyToString x = case x of
     Hotkey9 -> "[9]"
     Hotkey0 -> "[0]"
 
-closeObjectToSelectionItem :: Either FloorItem Button -> SelectionItem ()
-closeObjectToSelectionItem e =
+closeItemToSelectionItem :: FloorItem -> SelectionItem ()
+closeItemToSelectionItem e =
     SelectionItem
         { _siPictures = pics
         , _siHeight = length pics
@@ -63,11 +63,11 @@ closeObjectToSelectionItem e =
         , _siPayload = ()
         }
   where
-    (pics, col) = closeObjectToTextPictures e
+    (pics, col) = closeItemToTextPictures e
 
-closeObjectToTextPictures :: Either FloorItem Button -> ([String], Color)
-closeObjectToTextPictures = \case
-    Left flit ->
+closeItemToTextPictures :: FloorItem -> ([String], Color)
+closeItemToTextPictures flit =
         let it = _flIt flit
          in (basicItemDisplay it, itemInvColor . pciToCI $ basePCI it)
-    Right bt -> ([_btText bt], yellow)
+
+--    Right bt -> ([_btText bt], yellow)