哪个解析器组合器适用于 Data.Text 并且包含在原版 GHC 中？

在原版 GHC 中，适用于 Data.Text 的解析器组合器是 text 库中的 Text.Parsec。下面是一个使用该组合器的代码示例：

import Text.Parsec
import Data.Text (Text)
import qualified Data.Text as T

-- 定义一个简单的解析器
parser :: Parsec Text () Int
parser = do
  number <- many1 digit
  return (read number)

-- 解析一个 Text
parseText :: Text -> Either ParseError Int
parseText input = parse parser "" input

-- 测试
main :: IO ()
main = do
  let input = T.pack "42"
  case parseText input of
    Left err -> putStrLn $ "解析失败：" ++ show err
    Right result -> putStrLn $ "解析成功，结果为：" ++ show result

在上面的示例中，我们使用 Text.Parsec 中的 Parsec 类型来定义解析器 parser，它可以将输入的数字字符串解析为整数。然后，我们定义了一个 parseText 函数，它将输入的 Text 数据进行解析，并返回解析结果。最后，在 main 函数中，我们使用 parseText 函数来解析一个具体的 Text 输入，并打印解析结果。

请注意，上述代码中引入了 text 和 parsec 库，所以你需要在项目的 .cabal 文件中添加相应的依赖，或者在 GHCi 中手动加载这些库。