diff --git a/src/Dodge/Render/HUD.hs b/src/Dodge/Render/HUD.hs
index 62a6f8a1e..f8fcd0c1e 100644
--- a/src/Dodge/Render/HUD.hs
+++ b/src/Dodge/Render/HUD.hs
@@ -290,7 +290,7 @@ drawRBOptions cfig w = fromMaybe mempty $ do
         | otherwise = mempty
     otheritem j = fromMaybe "" $ do
         itype <- you w ^? crInv . ix j . itType
-        return $ itemBaseName ittype
+        return $ itemBaseName itype
 
 equipAllocString :: EquipmentAllocation -> String
 equipAllocString = \case