sourceSpan :: Parser Text
sourceSpan = asum
  [ T.pack <$> angleBrackets
  , symbol
  ]
  where
    angleBrackets = (:) <$> char '<' <*> manyTill anyChar (char '>')
sourceSpan :: Parser Text
sourceSpan = asum
  [ T.pack <$> angleBrackets
  , symbol
  ]
  where
    angleBrackets = (:) <$> char '<' <*> manyTill anyChar (char '>')
sourceSpan = asum
  [ T.pack <$> angleBrackets
  , symbol
  ]
  where
    angleBrackets = (:) <$> char '<' <*> manyTill anyChar (char '>')