inVector = asPathExtractor $ \case
  C.InVectorApp loc -> Just loc
  _                 -> Nothing
inVector = asPathExtractor $ \case
  C.InVectorApp loc -> Just loc
  _                 -> Nothing
inVector = asPathExtractor $ \case
  C.InVectorApp loc -> Just loc
  _                 -> Nothing