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

src/Dodge/Item/Display.hs

@@ -5,6 +5,7 @@ module Dodge.Item.Display (
     basicItemDisplay,
 ) where
 
+import Dodge.Item.InvSize
 import Dodge.Data.ComposedItem
 import ShortShow
 import Data.Maybe
@@ -32,7 +33,7 @@ itemDisplayPad ls rs
 
 basicItemDisplay :: Item -> [String]
 basicItemDisplay itm =
-    Prelude.take (_itInvSize itm) $
+    Prelude.take (itInvHeight itm) $
         itemBaseName itm :
         --catMaybes [maybeWarmupStatus itm, maybeRateStatus itm]
         catMaybes [maybeWarmupStatus itm]