Thing.hs

{-# LANGUAGE OverloadedStrings #-}

import Text.Megaparsec
import Data.Text (Text)
import Data.Void (Void)

type Parser = Parsec Void Text
type Error = ParseErrorBundle Text Void

thing :: Text -> Either Error (Text, Text)
thing = parse (thingP <* eof) ""

thingP :: Parser (Text, Text)
thingP = do
  xxx <- takeWhileP Nothing (/= '(')
  yyy <- parens (takeWhileP Nothing (/= ')'))
  pure (xxx, yyy)

parens = between (chunk "(") (chunk ")")