Replace length . _siPictures with _siHeight

src/Dodge/Update/Input/InGame.hs

@@ -5,6 +5,7 @@ module Dodge.Update.Input.InGame (
     updateMouseInGame,
 ) where
 
+import Dodge.Item.Display
 import Control.Applicative
 import Control.Monad
 import Data.Foldable
@@ -240,8 +241,9 @@ updateMouseClickInGame cfig w = case w ^. input . mouseContext of
         guard $ i == 0
         str <-
             fmap (take 5) $
-                w
-                    ^? hud . hudElement . diSections . ix i . ssItems . ix j . siPictures . ix 0
+                w ^? cWorld . lWorld . creatures . ix 0 . crInv . ix j
+                    >>= (listToMaybe . basicItemDisplay)
+--                    ^? hud . hudElement . diSections . ix i . ssItems . ix j . siPictures . ix 0
         return . (worldEventFlags . at CombineInventoryChange ?~ ()) $
             case w ^? hud . hudElement . subInventory . ciFilter . _Just of
                 Just (_ : xs)