Cleanup

src/Dodge/Render/HUD.hs

@@ -24,7 +24,6 @@ import Dodge.Data.Config
 import Dodge.Data.DoubleTree
 import Dodge.Data.SelectionList
 import Dodge.Data.World
-import Dodge.Default.SelectionList
 import Dodge.DoubleTree
 import Dodge.Equipment.Text
 import Dodge.Inventory
@@ -180,15 +179,14 @@ drawExamineInventory cfig w =
         <> drawSelectionList
             secondColumnParams
             cfig
-            ( defaultSelectionList & slItems
-                .~ map f
+            ( (map f
                     ( makeParagraph 55 $
                         yourAugmentedItem
                             itemInfo
                             (yourInfo (you w))
                             (closeObjectInfo (crNumFreeSlots (you w)))
                             w
-                    )
+                    ))
             )
   where
     f str =
@@ -359,7 +357,7 @@ drawTerminalDisplay tid cfig w = fromMaybe mempty $ do
             <> color (dark $ _tmExternalColor tm) (drawTitleBackground cfig)
   where
     toselitm (str, col) = SelectionItem [str] 1 True col 0 ()
-    thesellist tm = defaultSelectionList & slItems .~ thelist tm
+    thesellist tm = thelist tm
     thelist tm =
         map toselitm . displayTermInput tm
             . reverse