moveToEntity v (GroundItem' g) = case g of
  Floor c -> pickupConsumable c . (loc .~ v)
  _       -> loc .~ v
moveToEntity v (GroundItem' g) = case g of
  Floor c -> pickupConsumable c . (loc .~ v)
  _       -> loc .~ v
moveToEntity v (GroundItem' g) = case g of
  Floor c -> pickupConsumable c . (loc .~ v)
  _       -> loc .~ v