Vleanup

src/Dodge/Inventory/RBList.hs

@@ -4,6 +4,7 @@ module Dodge.Inventory.RBList (
     eqSiteToPositions,
 ) where
 
+import Dodge.Data.Equipment.Misc
 import Dodge.Data.EquipType
 import Control.Applicative
 import Control.Lens

src/Dodge/Inventory/SelectionList.hs

@@ -8,6 +8,7 @@ module Dodge.Inventory.SelectionList (
     getItemValue,
 ) where
 
+import Dodge.Data.Equipment.Misc
 import Numeric
 import Dodge.Inventory.Path
 import Control.Applicative
@@ -61,7 +62,7 @@ itemDisplay w cr ci = -- f
     anyhotkey = fmap hotkeyToString
         (w ^? cWorld . lWorld . imHotkeys . unNIntMap . ix itid)
     anyequippos = do
-        _ <- ci ^? _1 . itUse . uequipEffect
+        _ <- ci ^? _1 . itType . ibtEquip
         epText <$> ci ^? _1 . itLocation . ilEquipSite
     anyscroll = fmap absurround $ itemScrollDisplay =<< (ci ^? _1)
     absurround str = " <" ++ str ++ ">"