Add capability to examine you (empty slots) and close objects

src/Dodge/Inventory.hs

@@ -23,6 +23,7 @@ module Dodge.Inventory (
     crInvSize,
     selectedCloseObject,
     invDimColor,
+    trimapAugmentInv,
 ) where
 
 import Color
@@ -102,6 +103,7 @@ augmentedInvSizes :: World -> IM.IntMap Int
 augmentedInvSizes = trimapAugmentInv itSlotsTaken 1 closeObjectSize
 
 trimapAugmentInv :: (Item -> a) -> a -> (Either FloorItem Button -> a) -> World -> IM.IntMap a
+{-# INLINE trimapAugmentInv #-}
 trimapAugmentInv f x g w =
     IM.insert n x $
         IM.union