Cleanup

src/Dodge/Render/HUD.hs

@@ -118,7 +118,7 @@ closeObjectInfo n x = case x of
 
 floorItemPickupInfo :: Int -> Item -> String
 floorItemPickupInfo n itm
-    | n >= ceiling (_itInvSize itm) = ", but you have space to pick it up."
+    | n >= _itInvSize itm = ", but you have space to pick it up."
     | otherwise = ", and you don't have space to pick it up."
 
 -- note the use of ^?!