inIfBody = asPathExtractor $ \case
  C.InIfBody loc -> Just loc
  _              -> Nothing

-- Causes --
inIfBody = asPathExtractor $ \case
  C.InIfBody loc -> Just loc
  _              -> Nothing

-- Causes --
inIfBody = asPathExtractor $ \case
  C.InIfBody loc -> Just loc
  _              -> Nothing

-- Causes --