Get rid of world hammers

src/Dodge/Render/HUD.hs

@@ -6,7 +6,6 @@ module Dodge.Render.HUD (
 import SelectionIntMap
 import Dodge.Data.Combine
 import Dodge.Default.SelectionList
-import Dodge.Combine
 import Dodge.Creature.Info
 import Control.Lens
 import qualified Data.Map.Strict as M
@@ -90,7 +89,7 @@ drawSubInventory subinv cfig w = case subinv of
         let mi = _smSelPos sl
         in titledSub'
             cfig
-            ("COMBINE")
+            "COMBINE"
             sl
             <> combineInventoryExtra sl mi cfig w
 
@@ -445,6 +444,18 @@ mainListCursor c = openCursorAt 120 c 5 0
 textSelItems :: [String] -> [SelectionItem ()]
 textSelItems = map (picsToSelectable 15 . (: []))
 
+picsToSelectable :: Int -> [String] -> SelectionItem ()
+picsToSelectable wdth pics =
+    SelectionItem
+        { _siPictures = pics
+        , _siHeight = length pics
+        , _siIsSelectable = True
+        , _siWidth = wdth
+        , _siColor = white
+        , _siOffX = 0
+        , _siPayload = ()
+        }
+
 openCursorAt ::
     -- | Width
     Float ->