Continue removing LDTs

src/Dodge/Inventory/SelectionList.hs

@@ -29,7 +29,7 @@ import NewInt
 import Padding
 import Picture.Base
 
-invSelectionItem :: World -> Int -> LocationLDT ItemLink CItem -> SelectionItem ()
+invSelectionItem :: World -> Int -> LocationDT OItem -> SelectionItem ()
 invSelectionItem w indent loc =
     SelectionItem
         { _siPictures = itemDisplay w cr ci
@@ -41,7 +41,8 @@ invSelectionItem w indent loc =
         , _siPayload = ()
         }
   where
-    ci = loc ^. locLDT . ldtValue
+    ci = (a,b)
+    (a,b,_) = loc ^. locDT . dtValue
     cr = w ^?! cWorld . lWorld . creatures . ix 0
 
 -- note the convoluted display of the hotkey/equipment, this was done to avoid a