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

src/Dodge/Item/Info.hs

@@ -1,11 +1,18 @@
 module Dodge.Item.Info where
 
+import Data.Char
 import Dodge.Data.Item
 import qualified Data.Map.Strict as M
 import LensHelp
 
-itmInfo :: Item -> String
-itmInfo itm = itmBaseInfo itm ++ " " ++ itmUsageInfo itm
+itemInfo :: Item -> String
+itemInfo itm = itmBaseInfo itm ++ " " ++ itmUsageInfo itm
+    ++ itmSpaceInfo itm
+
+itmSpaceInfo :: Item -> String
+itmSpaceInfo itm = case (ceiling $ _itInvSize itm) of
+    1 -> "It takes up one inventory slot. "
+    x -> "It takes up " ++ map toLower (showInt x) ++ " inventory slots. "
 
 itmBaseInfo :: Item -> String
 itmBaseInfo itm = case itm ^. itType . iyBase of