_any :: SubseqExtractor v loc ()
_any = _any' (\n -> pathLength n - 1)
 where
  pathLength :: C.ErrorNote v loc -> Int
  pathLength = length . toList . C.path
_any :: SubseqExtractor v loc ()
_any = _any' (\n -> pathLength n - 1)
 where
  pathLength :: C.ErrorNote v loc -> Int
  pathLength = length . toList . C.path
_any = _any' (\n -> pathLength n - 1)
 where
  pathLength :: C.ErrorNote v loc -> Int
  pathLength = length . toList . C.path