inMatchBody = asPathExtractor $ \case
  C.InMatchBody -> Just ()
  _             -> Nothing
inMatchBody = asPathExtractor $ \case
  C.InMatchBody -> Just ()
  _             -> Nothing
inMatchBody = asPathExtractor $ \case
  C.InMatchBody -> Just ()
  _             -> Nothing