haskell - 如何解码编码字字符串？

Question

请注意，此问题与 this 相同以前没有回答的问题。
它也与 this PHP question 相同，但我正在寻找 haskell 的等价物。

RFC 2047定义了“encoded-word”编码的标准并提供了一个示例:

=?iso-8859-1?q?this=20is=20some=20text?=

是否有一个标准的 haskell 库来处理将其解码为正确的 Text 表示？

使用 parsec 和 RFC 规范编写自定义解析器应该不会太难，但这似乎是其他语言中常见的、已解决的问题，我找不到 Haskell 的等价物，我宁愿不重新-在这里发明轮子。

Answer 1

在mime包看decodeWord在模块中 Codec.MIME.Decode :

ghci> import Codec.MIME.Decode
ghci> decodeWord "=?iso-8859-1?q?this=20is=20some=20text?="
Just ("this is some text","")

通过阅读源代码，iso-8859-1 和 us-ascii 均受支持。

还有decodeWords，它使用decodeWord函数来翻译整个字符串:

ghci> decodeWords "Foo=?iso-8859-1?q?this=20is=20some=20text?=Bar"
"Foothis is some textBar"