inMatchGuard = asPathExtractor $ \case
  C.InMatchGuard -> Just ()
  _              -> Nothing
inMatchGuard = asPathExtractor $ \case
  C.InMatchGuard -> Just ()
  _              -> Nothing
inMatchGuard = asPathExtractor $ \case
  C.InMatchGuard -> Just ()
  _              -> Nothing