inMatch, inVector, inIfBody :: SubseqExtractor v loc loc
inMatch = asPathExtractor $ \case
  C.InMatch loc -> Just loc
  _             -> Nothing
inMatch, inVector, inIfBody :: SubseqExtractor v loc loc
inMatch = asPathExtractor $ \case
  C.InMatch loc -> Just loc
  _             -> Nothing
inMatch = asPathExtractor $ \case
  C.InMatch loc -> Just loc
  _             -> Nothing