Commit before extending selection sections: overlapping elements

src/Dodge/Render/HUD.hs

@@ -99,6 +99,7 @@ drawExamineInventory cfig mtweaki w =
             , _siIsSelectable = True
             , _siColor = white
             , _siOffX = 0
+            , _siOffY = 0
             , _siPayload = ()
             }
 
@@ -214,7 +215,7 @@ displayTerminal tid cfig w = fromMaybe mempty $ do
         invHead cfig (_tmTitle tm ++ ":T" ++ show tid)
             <> drawSelectionList secondColumnParams cfig (thesellist tm)
   where
-    toselitm (str, col) = SelectionItem [str] 1 True col 0 ()
+    toselitm (str, col) = SelectionItem [str] 1 True col 0 0 ()
     thesellist tm = defaultSelectionList & slItems .~ thelist tm
     thelist tm =
         map toselitm . displayTermInput tm
@@ -333,6 +334,7 @@ picsToSelectable pics =
         , _siIsSelectable = True
         , _siColor = white
         , _siOffX = 0
+        , _siOffY = 0
         , _siPayload = ()
         }