Move item inv size and item dimensions from records to external function

src/Dodge/Render/HUD.hs

@@ -4,6 +4,7 @@ module Dodge.Render.HUD (
     drawHUD,
 ) where
 
+import Dodge.Item.InvSize
 import Control.Applicative
 import Control.Lens
 import Control.Monad
@@ -215,7 +216,7 @@ closeObjectInfo n x = case x of
 
 floorItemPickupInfo :: Int -> Item -> String
 floorItemPickupInfo n itm
-    | n >= _itInvSize itm = ", but you have space to pick it up."
+    | n >= itInvHeight itm = ", but you have space to pick it up."
     | otherwise = ", and you don't have space to pick it up."
 
 -- note the use of ^?!