etVehiclePositions ::
  FeedMessage
  -> P'.Seq VehiclePosition
getVehiclePositions fm = (`P'.getVal` vehicle) <$> P'.getVal fm entity

getVehiclePositions ::
  FeedMessage
  -> P'.Seq VehiclePosition
getVehiclePositions fm = (`P'.getVal` vehicle) <$> P'.getVal fm entity
getVehiclePositions fm = (`P'.getVal` vehicle) <$> P'.getVal fm entity