Stop equip after combining

src/Dodge/Render/HUD.hs

@@ -204,7 +204,7 @@ combineInventoryExtra sss cfig w = fromMaybe mempty $ do
   where
     invcursor i = fromMaybe mempty $ do
         sss' <- w ^? hud . hudElement . diSections
-        let idp = (invDisplayParams w & ldpCursorSides .~ [North, South, East, West])
+        let idp = invDisplayParams w & ldpCursorSides .~ [North, South, East, West]
         return $
             translateScreenPos cfig (idp ^. ldpPos) $
                 selSecDrawCursor 17 idp (sss' & sssExtra . sssSelPos ?~ (0, i))
@@ -261,7 +261,7 @@ lnkMidPosInvSelsCol cfig w i col = foldMap f
         lp <- selNumPos cfig (invDisplayParams w) sss 0 j
         rp <- selNumPos cfig secondColumnParams combinesss 0 i
         invcol <- selSecSelCol 0 j sss
-        return $ zConnectCol (rp - V2 5 0) (lp + V2 175 0) col white white invcol
+        return $ zConnectCol (rp - V2 5 0) (lp + V2 175 0) col col col invcol
 
 tweakItems :: Maybe Item -> [SelectionItem ()]
 tweakItems = textSelItems . ammoTweakStrings