Cancel terminal display if destroyed while displaying

2025-08-19 18:01:23 +01:00
parent b07280e50c
commit 5ccbfa1f91
10 changed files with 135 additions and 149 deletions
@@ -21,14 +21,14 @@ combineList :: World -> [SelectionItem CombinableItem]
 combineList = map f . combineItemListYouX
  where
    f (is, itm) =
-        SelectionItem
+        SelItem
            { _siPictures = basicItemDisplay itm
            , _siHeight = itInvHeight itm
            , _siWidth = 15
            , _siIsSelectable = True
            , _siColor = itemInvColor $ baseCI itm
            , _siOffX = 0
-            , _siPayload = CombinableItem is itm
+            , _siPayload = Just $ CombinableItem is itm
            }

 combineItemListYouX :: World -> [([Int], Item)]