Cleanup

src/Dodge/Render/HUD.hs

@@ -139,7 +139,7 @@ drawExamineInventory cfig mtweaki w =
             { _siPictures = [str]
             , _siHeight = 1
             , _siIsSelectable = True
-            , _siWidth = length str
+            --, _siWidth = length str
             , _siColor = white
             , _siOffX = 0
             , _siPayload = ()
@@ -260,7 +260,8 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
             , drawSelectionList secondColumnParams cfig (thesellist tm)
             ]
   where
-    toselitm (str, col) = SelectionItem [str] 1 True (length str) col 0 ()
+    --toselitm (str, col) = SelectionItem [str] 1 True (length str) col 0 ()
+    toselitm (str, col) = SelectionItem [str] 1 True col 0 ()
     thesellist tm = defaultSelectionList 
         { _slItems = thelist tm
 --        , _slLength = length (thelist tm)
@@ -465,15 +466,15 @@ mainListCursor :: Color -> Int -> Configuration -> Picture
 mainListCursor c = openCursorAt 120 c 5 0
 
 textSelItems :: [String] -> [SelectionItem ()]
-textSelItems = map (picsToSelectable 15 . (: []))
+textSelItems = map (picsToSelectable . (: []))
 
-picsToSelectable :: Int -> [String] -> SelectionItem ()
-picsToSelectable wdth pics =
+picsToSelectable :: [String] -> SelectionItem ()
+picsToSelectable pics =
     SelectionItem
         { _siPictures = pics
         , _siHeight = length pics
         , _siIsSelectable = True
-        , _siWidth = wdth
+        --, _siWidth = wdth
         , _siColor = white
         , _siOffX = 0
         , _siPayload = ()