Это дает желаемый результат.
,
у прочитать HTML из строки, обработать его и вернуть измененный документ в виде строки, используя HXT. Поскольку эта операция не требует ввода-вывода, я бы предпочел выполнить Arrow сrunLA чем сrunX.
Код выглядит следующим образом (для простоты пропущена обработка):
runLA (hread >>> writeDocumentToString [withOutputHTML, withIndent yes]) html
Тем не менее, окружающиеhtml тег отсутствует в результате:
["\n <head>\n <title>Bogus</title>\n </head>\n <body>\n Some trivial bogus text.\n </body>\n",""]
Когда я использую runX вместо этого, как это:
runX (readString [] html >>> writeDocumentToString [withOutputHTML, withIndent yes])
Я получаю ожидаемый результат:
["<html>\n <head>\n <title>Bogus</title>\n </head>\n <body>\n Some trivial bogus text.\n </body>\n</html>\n"]
Почему это так и как я могу это исправить?