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

src/Dodge/Item/Info.hs

@@ -2,6 +2,7 @@ module Dodge.Item.Info
     ( itemInfo
     ) where
 
+import Dodge.Item.InvSize
 import Data.Char
 --import qualified Data.Map.Strict as M
 import Dodge.Data.Item
@@ -15,7 +16,7 @@ itemInfo itm =
         ++ itmSpaceInfo itm
 
 itmSpaceInfo :: Item -> String
-itmSpaceInfo itm = case _itInvSize itm of
+itmSpaceInfo itm = case itInvHeight itm of
     1 -> " It takes up one inventory slot. "
     x -> " It takes up " ++ showInt x ++ " inventory slots. "